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ABSTRACT 


The  helicopter  has  been  used  since  its  early  development  for  external  transport  of 
large  or  bulky  loads  to  small  austere  locations.  Among  the  problems  encountered  as  lift 
capability  and  airspeeds  increased  was  that  of  divergent  load  oscillations  due  to  load 
aerodynamics 

The  most  problematic  are  the  single  point  external  loads  displaying  unsteady 
aerodynamics  and  coupled  yaw-pendulum  modes  accounting  for  the  instability  of  cargo 
containers.  However,  a  lack  of  simulation  models  for  unsteady  aerodynamics  renders 
simulation  and  analysis  incapable  of  predicting  the  critical  speeds  at  which  such  loads 
become  unstable.  This  thesis  attempts  to  provide  a  stabilization  system  for  controlling 
the  yaw  degree  of  freedom  for  the  single  point  external  load. 

Empirical  models  of  the  yaw  resistance  at  the  hook  and  of  the  yaw  moments  due 
to  vortex  shedding  were  developed  and  tuned  using  flight  test  data  and  lab  measurements. 
Several  load  stabilization  systems  were  considered,  and  a  horizontal  and  vertical  tail  fin 
assembly  was  selected  This  thesis  presents  simulation  model  improvements  required 
for  a  simulation  to  match  flight  results  for  the  load  yaw,  along  with  the  design,  modeling 
and  optimization  of  the  fin  stabilization  system,  and  a  simulation  assessment  of  the 
envelope  expansion  obtained  from  both  passive  and  active  stabilization. 
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I.  INTRODUCTION 


A.  HISTORICAL 

The  helicopter  has  been  used  since  its  early  development  for  external  transport  of 
large  or  bulky  loads  to  small  austere  locations.  For  the  military  it  has  been  essential  in 
rapidly  providing  supplies  not  only  for  combat  but  also  for  natural  disasters  where 
landing  locations  are  small  and  isolated.  In  addition  the  ability  of  the  helicopter  to 
transport  loads  externally  has  changed  the  face  of  construction,  logging  and  fire  fighting 
by  providing  a  mobile  heavy  lift  capability. 

As  helicopters  improved,  their  lift  capability  and  airspeeds  increased  to  encounter 
the  problem  of  load  aerodynamic  instability.  According  to  various  published  works  [Ref 
1-4]  aerodynamic  instabilities  can  occur  at  moderate  forward  airspeeds  well  below  the 
power-limited  airspeed  of  today’s  helicopters. 

In  order  to  fly  a  helicopter  safely  with  a  slung  load  (Helo/SL)  the  handling 
qualities  and  maximum  forward  speed  of  the  combination  has  to  be  detennined.  This  has 
normally  been  done  by  flight-testing  of  the  Helo/SL  and  has  led  to  millions  of  dollars 
being  spent  by  the  military  and  industry  to  certify  new  loads  and  cargo  hooks. 

Wind  tunnel  studies  [Ref  5]  shows  that  many  loads  become  unstable  at  airspeeds 
well  below  a  helicopter’s  power  limited  speed.  This  restriction  severely  hampers  a 
helicopter’s  ability  to  rapidly  re-supply  time  critical  situations  such  as  humanitarian  relief 
or  fire  fighting  where  needed  supplies  may  be  a  considerable  distance  away. 


B.  LOAD  STABILIZATION 

The  simplest,  most  popular  and  problematic  external  load  suspension  system  is 
the  single  point  configuration.  From  the  early  use  it  became  apparent  that  a  method  of 
stabilizing  this  configuration  to  allow  the  helicopter  to  fly  at  higher  airspeeds  would  be  a 
great  improvement  to  the  Helo/SL.  With  no  inherent  yaw  stabilization  the  single  point 
external  load  it  displays  potentially  dangerous  yaw  to  lateral  coupling  which  leads  to 
pendulous  oscillations,  load  helicopter  contact,  load  jettison  and  even  loss  of  the 
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helicopter  or  life  can  be  controlled,  greatly  improving  the  safety  and  speed  of  the 
Helo/SL  operations. 

In  addition  an  accurate,  validated  simulation  would  allow  various  loads  to  be 
checked  with  a  variety  of  sling  configurations  or  even  with  load  stabilization  devices  to 
determine  the  optimum  configuration.  This  would  allow  for  a  reduction  in  the  flight  test 
time  required  to  certify  loads  and  would  improve  safety  and  training  for  external  load 
operations. 


C.  PREVIOUS  RESEARCH 

Historically  slung  load  stabilization  has  been  approached  in  three  basic  methods; 
altering  the  original  control  systems  of  the  helicopter,  altering  the  geometry  and  by 
attaching  various  stabilization  devices  directly  to  the  load. 

Altering  the  original  control  systems  of  the  helicopter  such  as  altering  the 
Augmented  Flight  Control  System  control  laws  to  include  feedback  of  yaw  motions  and 
have  shown  limited  success  [Ref  6]  but  adds  an  additional  level  of  complication  and 
concerns  for  flight  safety. 

Altering  the  sling  configuration  such  as  the  flight  test  of  the  active  arm 
stabilization  system  developed  by  Boeing  [Ref  7]  has  shown  promising  results  but  adds 
considerable  bulk  and  weight  when  added  to  existing  aircraft.  This  method  appears  to  be 
most  promising  if  it  is  incorporated  during  the  design  of  the  next  generation  of  heavy  lift 
helicopters. 

Attaching  various  stabilization  devices  directly  on  the  load  such  as  the  early 
experimentation  with  drogue  shoots  and  flow  diverters  has  been  frequently  proposed  and 
studied  and  has  shown  promising  results.  This  method  of  stabilization  is  a  logical 
approach  since  these  devices  attack  the  source  of  the  instability  directly,  namely  the  load 
aerodynamics  and  do  not  require  modifications  of  flight  control  systems. 
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D.  STABILIZATION  DEVICES 

Proposed  load  stabilization  devices  have  included  a  rotating  wheel  mounted  on 
the  load  to  augment  stability  [Ref  8]  and  active  jet  controls  mounted  on  the  helicopter’s 
lower  pennant  hook  [Ref  9]  and  load  shape  modifications  [Ref  10].  While  all  of  these 
methods  show  some  improvement  in  theoretical  analysis,  from  the  practical  standpoint 
the  increased  weight  and  complexity  does  not  appear  to  make  these  methods  practical  at 
this  time 

Liu  [Ref  10]  examined  the  effects  of  changing  load  stability  parameters,  which 
can  be  done  by  adding  fore  and  after  body  flow  directors  or  by  adding  weight  to  the  load. 
His  analytical  results  showed  a  limited  effect  on  load  stability  and  since  these  types  of 
stabilization  devices  are  very  load  specific,  their  practicality  is  also  limited.  However  Liu 
also  showed  that  the  most  significant  increase  in  stability  was  achieved  by  reducing  the 
coefficient  of  yaw  due  to  beta  (C7  ).  This  can  be  done  by  adding  fins  to  the  load. 

Further  studies  by  Mtheson  and  by  Gera  and  Fanner  [Ref  1 1,12]  showed  that  controllable 
fins  could  provide  even  greater  load  stability  than  static  fins.  This  appears  to  be  the  most 
promising  and  practical  approach  and  was  chosen  for  this  research. 


E.  PURPOSE  OF  RESEARCH 

Slung  load  research  at  NASA  Ames  research  center  in  single  point  suspension 
systems  have  been  conducted  since  1995  under  a  Memorandum  of  Agreement  between 
the  United  States  and  Israel  [Ref  13].  This  research  on  rotorcraft  aeromechanics  and 
man-machine  integration  covers  many  topics  including  the  flight  mechanics  of 
helicopters  /  sling-load  systems.  Early  objectives  of  this  combined  research  have  largely 
been  accomplished  and  includ  static  wind  tunnel  tests  of  cubes  and  CONEX  model  [Ref 
14],  flight  tests  of  various  single  point  external  loads  [Ref  15]  and  a  simulation  of  the 
helicopter  /  slung  load  two-body  system  [Ref  16].  Current  objectives  are  to  provide  a 
validated  helicopter  /  slung  load  simulation  for  existing  configurations  and  to  provide  a 
dynamic  prediction  tool  for  new  configurations. 
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The  first  goal  served  three  additional  functions.  A  validated  simulation  model 
could  then  be  used  to  drive  a  motion-based  flight  simulator  used  for  realistic  pilot 
training,  providing  the  correct  “feel”  of  the  external  load  operations.  Secondly,  the  model 
could  be  used  for  load  certification  and  configuration  experimentation.  Finally,  provided 
valuable  insight  into  conditions  under  which  a  particular  load  goes  unstable. 
Understanding  what  operational  techniques  delay  the  onset  of  instability  could  expand 
the  flight  envelopes  for  existing  loads.  A  larger  flight  envelope  increases  efficiency, 
important  factor  for  civil  and  military  slung  load  operations. 

In  the  design  stage  of  a  new  helicopter  or  a  new  load  configuration,  a  dynamic 
prediction  tool  would  aid  in  verifying  safety  of  flight  prior  to  expensive  wind  tunnel  or 
flight-testing.  A  simulation  with  modular  architecture,  allowing  the  designer  to  assess 
different  elements  representing  helicopter  dynamics,  load  aerodynamics,  and  sling 
geometry,  would  make  possible  extensive  parametric  studies,  showing  the  sensitivity  of 
the  complete  design  to  variations  in  any  of  the  basic  elements  of  the  system. 


F.  SCOPE  OF  CURRENT  THESIS  WORK  PERFORMED 

This  thesis  describes  the  development  and  analysis  of  a  fin  type  load  stabilization 
device  using  a  comprehensive  dynamics  and  aerodynamics  model  for  slung  load 
simulation  previously  developed  by  the  NASA  Ames  rotorcraft  division  [Ref  16].  This 
simulation  is  an  integration  of  the  NASA  Ames  GenHel  UH-60A  simulation  with  the 
equations  of  motion  for  slung  load  systems  it  includes  in; 

•  Static  aerodynamics  review. 

•  Unsteady  aerodynamics  review. 

•  Yaw  Motion  Correction  and  validation  to  the  GenHel/Slung  Load 
simulation. 

•  Theoretical  design  and  analysis  of  a  fin  type  stabilization  system. 

Gen  Hel  is  a  component-type  nonlinear  Black  Hawk  helicopter  model,  using  a 
blade-element  implementation  of  the  main  rotor  system.  Devloped  by  Sikorsky  [Ref  17] 
and  validated  at  NASA  Ames  for  handling  qualities  research  it’s  main  rotor  dynamics  in 
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the  model  include  rotor  flapping,  lagging,  and  rotor  speed,  incorporating  lag  dampers  to 
enable  the  model  to  accurately  predict  possible  rotor  instability  due  to  air  resonance. 

The  slung  load  dynamics  model  was  integrated  into  the  GenHel/SL  simulation  by 
Tyson  [Ref  17]  from  previous  work  at  Ames  [Ref  26].  This  model  used  flight  test  data  to 
validate  the  motions  of  the  load.  The  results  showed  accurate  reproduction  of  the  load 
longitudinal  and  lateral  pendulum  motions  [Ref  15,  16]  but  the  yaw  motions  seen  in  flight 
were  not  matched. 

An  in-depth  review  of  the  static  and  dynamic  aerodynamics  of  the  slung  load  was 
conducted  to  gain  an  appreciation  of  the  forces  behind  the  load’s  motion.  Basic  airflow 
analysis  along  with  flow  separation  and  vortex  shedding  was  considered  to  develop  a 
mathematical  model  which  closely  followed  both  the  steady  aerodynamic  wind  tunnel 
data  obtained  at  the  Technion  Institute,  Israel  [Ref  14]  and  flight  test  data  obtained  at  the 
Ames  Research  Center  [Ref  15]. 

The  aerodynamics  review  was  used  to  obtain  an  empirical  formula  to  model  the 
apparent  aerodynamic  forces  on  the  load  and  the  formula  expanded  to  include  the  yaw 
resistance  at  the  hook.  Laboratory  experiments  were  conducted  to  obtain  the  actual  yaw 
resistance  at  the  hook  and  the  simulation  validated  against  flight  test  data. 

A  load  stabilization  module  was  developed  and  linked  to  the  GenHel/SL 
simulation.  The  stabilizer  aerodynamics  was  modeled  for  an  airfoil  exposed  to  a  relative 
wind  from  any  angle.  The  affects  of  a  stabilization  device  of  various  sizes  were  studied 
using  the  CONEX  box  as  load. 

Historically  three  basic  types  of  loads  have  displayed  a  tendency  towards 
instability;  bluff  bodies,  flat  plate  type  and  aerodynamically  active  loads.  Though  this 
work  focuses  primarily  on  the  bluff  body  loads  the  model  was  developed  with  the  idea  of 
expanding  it  to  all  types  of  unstable  loads. 

The  static  and  unsteady  aerodynamics  of  a  bluff  body  are  evaluated  in  chapter  II 
in  order  to  get  an  appreciation  of  the  forces  causing  the  yaw  motions.  Past  stabilization 
studies  were  reviewed  in  chapter  III  and  a  stabilization  device  was  selected  based  on 
operational  considerations.  The  yaw  motion  of  the  GenHel/SL  simulation  was  corrected 
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and  validated  in  chapter  IV  using  flight  test  data.  A  stabilization  module  was  developed 
in  chapter  V  and  linked  to  the  GenHel/SL  simulation  and  the  effects  of  the  stabilization 
system  were  evaluated. 
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II.  BLUFF  BODY  FORCES  AND  MOMENTS 


A.  OVERVIEW 

External  load  aerodynamics  were  considered  prior  to  developing  the  load 
stabilization  system  model  and  a  correction  of  its  yaw  motions.  The  aerodynamics 
accounts  for  the  instability  of  many  difficult  loads  at  moderate  forward  speeds.  The 
airflow  around  the  load  was  considered  in  order  to  derive  an  appropriate  simulation 
model 


The  basic  nature  of  the  load  aerodynamics  differs  in  hover  and  forward  flight. 
During  hover  the  airflow  around  the  load  is  determined  by  the  rotor  downwash,  the 
magnitude  of  which  and  the  amount  of  swirl  in  the  downwash  being  dependent  on  the 
thrust  of  the  helicopter/slung  load  as  well  as  the  helicopter’s  rotor  configuration.  In 
forward  flight  the  geometry  and  motions  of  the  load  detennine  the  airflow  around  the 
load.  For  analysis  the  load  aerodynamics  were  separated  into  steady  and  unsteady 
aerodynamics  and  the  two  effects  are  superposed. 

The  remaining  force  acting  on  the  load  is  that  of  hook  resistance.  The  single  point 
suspension  system  can  be  connected  to  the  helicopter  directly  or  by  using  a  swivel 
assembly  each  providing  a  unique  resistance  to  the  load  motions.  The  resulting  equation 
incorporated  all  aspects  effecting  the  yaw  motions  of  the  load  is; 


YM  =  YM 


Static 


Dynamic 


^  Swirl 


1  Hook  Re  sis  tan  ce 


B.  HOVER  AERODYNAMICS 

The  aerodynamics  in  a  hover  can  be  greatly  simplified  by  only  looking  at  those 
forces  that  cause  motion  in  the  external  load.  For  this  analysis  the  aircraft  is  considered 
to  be  in  a  hover  when  the  aircraft  is  in  a  no-wind  environment  or  that  the  wind  is  slight 
enough  that  it’s  affect  on  the  load  is  negligible. 

In  evaluating  effects  of  the  downwash  from  the  helicopter  impinging  on  top  of  the 
load  (uniform  distribution)  the  only  factor  from  the  downwash  that  causes  motion  of  the 
load  is  downwash  swirl.  In  hover  flight  tests  conducted  at  Ames  with  a  swiveled  sling, 
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yaw  rates  of  about  45  degrees  per  second  were  seen.  The  GenHel  /  slung  load  simulation 
from  reference  (16)  modeled  the  rotor  downwash  axial  flow  and  represented  the  swirl  as 
a  lateral  air  velocity  component.  Although  the  axial  flow  can  be  50  knots,  it  had 
negligible  effect  on  the  pendulum  roots.  The  simulation  roots  did  match  the  flight  data 
but  could  not  accurately  model  the  yaw  motions. 


C.  FLIGHT  AERODYNAMICS 

A  bluff  body  aerodynamic  analysis  was  performed  for  understanding  of  the  nature 
of  the  box  aerodynamics  over  a  360-degree  range. 

Most  unstable  bluff  body  loads  are  medium  to  low  density  box-type  loads.  These 
display  evidence  of  close  coupling  between  lateral  pendulous  motions  and  yaw  [Ref  12]. 
For  this  analysis  the  aerodynamics  of  a  typical  box-type  load  was  considered. 

1.  Wind  Tunnel  Data 

An  in-depth  wind  tunnel  study  of  the  static  aerodynamics  of  cubic  containers  and 
the  CONEX  cargo  container  was  conducted  by  Technion  Israel  [Ref  15],  This  data  was 
comprehensive  and  accurate.  All  angles-of-attack  and  sideslip,  as  required  for  a  complete 
simulation  model  were  covered.  Departures  of  measurements  from  the  expected 
symmetries  of  the  cube  were  used  to  improve  the  model  mounts  and  remove  interference 
effects. 

2.  Steady  Aerodynamic  Analysis 

A  basic  analysis  of  the  steady  airflow  around  a  box  of  length  1,  width  w,  and 
height  h,  which  is  fixed  in  the  airflow,  is  shown  in  figure  (1).  As  the  box  turns  in  the 
airflow  the  streamlines  will  be  deflected  creating  a  lateral  force  perpendicular  to  the  free 
stream  velocity  that  will  continue  the  motion  until  the  two  forces  lie  on  a  line  through  the 
geometric  center.  Any  further  rotation  of  the  box  beyond  this  angle  of  zero  yaw  moment 
(/?0 )  will  tend  to  return  the  load  to  this  angle. 
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Figure  1 .  Bluff  Body  Un-separated  Flow  Aerodynamic  Forces 


The  angle  of  zero  yaw  moment  (/ 50 )  can  be  easily  calculated  for  any  box  as 

A=-  -fnsXm) 

The  center  of  pressure  for  forces  due  to  circulation  effects  can  be  taken  as  the 
point  where  the  streamlines  are  deflected  the  most.  In  the  case  of  the  bluff  body  this 
corresponds  to  the  outmost  comers  of  the  box.  The  forces  affecting  the  yaw  motion  (Fs) 
can  be  broken  down  into  two  components  Fx  and  Fy  along  and  perpendicular  to  the  side 

of  the  box  with  moment  arms  of  and  j/^  respectively. 

Fx  =Fsx  Sin(2/3  +  /?0 ) 

Fy=FsxCos(2/3  +  Pq) 

where  the  term  (2/5  +  /50 )  accounts  for  the  angle  of  zero  yaw  moment  being  greater  for  a 
longer  box. 

The  total  moment  can  then  be  calculated  for  any  arbitrary  box  as 
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™  =  2  F°  \(/l  -"/l)  MW  +  fio)  Cos(2P  +  P 0) 

Using  the  trigonometric  identity  Sin (2/3)  =  2sin (/3)  Cos(/3 )  and  simplifying  the 
total  yaw  moment  becomes 

YM  =  FS  Sin( 4/3  +  2/?,)  [/2~w/2) 

In  addition  wind  tunnel  studies  [Ref  5]  showed  significant  flow  separation  due  to 
the  sharp  corners  on  bluff  bodies.  This  flow  separation  creates  bubbles  of  low  pressure, 
which  will  produce  lateral  forces  perpendicular  to  the  sides  of  the  box  affecting  the  yaw 
moment  of  the  box.  These  forces  can  be  modeled  as  shown  below. 


Fy 


Fx 

Figure  2.  Bluff  Body  Separated  Flow  Aerodynamic  Forces 
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The  separation  bubble  produces  a  difference  in  pressure  between  opposite  sides  of 
the  box  resulting  in  a  force  along  the  body  x-axis  (Fx)  which  will  be  at  a  maximum  at 
P=0  and  go  to  zero  at  (3=90°.  It  can  be  represented  as 

Fx  =  CP  Area  =  CP  hw  Cos  ( / 3 ) 


Similarly  the  force  along  the  body  y-axis  can  be  calculated  as 

FY  =  CP  hi  Cos (jB) 


Since  these  forces  are  caused  by  pressure  forces  they  are  perpendicular  to  the  box 
surface  and  the  center  of  pressure  is  located  at  the  center  of  the  flow  separation  bubble. 
The  yaw  moment  caused  by  the  flow  separation  is 

Y„=[Ft  /  Sin(Pj]  [^xCos(/?)]-[F„  w  Cos(/?)]  Sin(fi)_ 

Where 

FB=CPH 


This  simplifies  to 


Combining  the  two  results  gives  a  total  yaw  moment  of 


Y, 


M 


=  FC 


F, 


/2  Sin(4fi  +  2 A)~w/2  *,(4'S  +  2^» )J+ 


The  magnitude  of  the  constant  Fs  was  tuned  for  a  best  match  of  the  wind  tunnel 
data  and  was  plotted  against  the  CONEX  wind  tunnel  data  obtained  by  reference  (14)  in 
figure  (3).  The  theoretical  mathematical  model  matches  the  test  data  with  the  only 
noticeably  difference  being  at  the  45  and  135  degree  points.  At  these  points  the  wind 
tunnel  data  shows  a  sharp  jump,  most  probably  due  to  the  corrugated  surface  and 
hardware  on  the  CONEX  box. 
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Comparison  of  Static  Aerodynamic  Model  to  Wind  Tunnel  Data 


Of  particular  note  is  that  when  integrated  over  a  360-degree  rotation,  the  net  yaw 
moment  produced  by  the  steady  aerodynamics  is  zero.  If  used  in  a  simple  yaw  degree  of 
freedom  model  [Appendix  A]  the  steady  aerodynamics  will  not  produce  the  motions  seen 
in  flight.  This  provides  evidence  that  unsteady  aerodynamic  forces  are  required  to 
account  for  the  bluff  body  load  motions  seen  in  flight.  This  is  consistent  with  the 
findings  by  Watkins  and  Prabakhar  [Ref  18,3]  that  unsteady  aerodynamics  and  coupled 
yaw-pendulum  modes  account  for  the  instabilities  of  cargo  containers. 

The  Technion  wind  tunnel  study  provided  accurate  and  comprehensive 
measurements  of  the  six  components  of  the  static  aerodynamics  of  the  CONEX  as 
functions  of  angle  of  attach  and  sideslip  [Ref  15].  These  were  implemented  in  a 
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subroutine  as  tables  of  data  every  5  degrees  along  with  a  lookup  cone.  Details  are  given 
in  appendix  (B). 

3.  Unsteady  Aerodynamics  Analysis 

The  work  in  reference  (5)  included  an  unsteady  forced  oscillation  test.  In  this  test 
it  was  noted  that  the  bubble  development  had  a  phase  lag  associated  with  it  though 
asymmetries  in  the  pressures  in  the  bubbles  indicated  that  unsteady  effects  other  than 
simple  phase  lag  exist.  Unfortunately  no  data  was  available  on  the  phase  lag  and  as  such 
could  not  be  mathematically  modeled. 

Another  well  known  unsteady  effect  of  bluff  bodies  is  that  of  vortex  shedding.  In 
his  book  on  aeroelasticity  [Ref  19]  Y.C.  Fung  addresses  vortex  shedding  and  notes  that  a 
satisfactory  theory  on  vortex  shedding  has  yet  to  be  developed.  Nor  have  the 
experiments  been  comprehensive  enough  to  pennit  useful  generalizations.  It  is  known 
that  vortex  shedding  causes  impulsive  lateral  forces  and  corresponding  torsional 
moments,  which  depend  on  the  wind  speed.  In  the  case  of  the  external  bluff  body  this 
could  well  explain  the  coupling  seen  between  the  lateral  pendulous  motions  and  yaw. 

A  theoretical  model  of  vortex  shedding  is  unknown,  but  its  effects  on  the  load 
yaw  motions  in  flight  are  known.  Using  this  knowledge  an  approximate  yaw  moment 
correction  can  be  introduced  which  represents  the  vortex  shedding  plus  a  bubble 
development  phase  delay  reproducing  the  flight  yaw  motions. 

To  generate  an  unsteady  aerodynamics  model  it  was  assumed  that  a  force  was 
being  developed  on  the  downwind  sides  of  the  box  and  was  a  function  of  the  relative 
wind  velocity.  As  the  box  starts  to  turn,  the  relative  winds  on  the  opposing  sides  of  the 
box  are  the  same.  As  the  yaw  rate  increases  the  relative  wind  on  one  side  of  the  box  will 
increase  while  the  opposite  side  will  experience  a  corresponding  decrease  s  as  shown  in 
figure  (4). 
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In  order  to  produce  the  motions  seen  in  flight  using  a  swiveled  sling  connection, 
the  initial  force  in  the  direction  of  spin  has  to  overpower  the  force  opposing  the  spin 
resulting  in  a  net  positive  yaw  moment.  As  the  box  yaw  rate  accelerates  the  relative  wind 
of  the  force  producing  the  positive  yaw  rate  decreases  and  the  relative  wind  of  the  force 
opposing  the  spin  increases.  This  reduces  the  yaw  moment  until  a  balance  is  found  and 
the  box  stabilizes  in  a  steady  state  spin. 

These  observations  were  used  as  a  basis  for  an  empirical  model  of  the  dynamic 
aerodynamics  forces. 

Ym  =  KDyn  q/Va  Sign(r)  (i Va  -  Kgr ) 

Where  KDyn  accounts  for  the  various  unknown  constants  and  Kg  is  a  conversion 
factor  from  rotational  speed  of  the  box  corner  to  linear  speed  in  the  relative  air  direction. 
The  factor  Sign(r)  causes  the  yaw  moment  to  act  in  the  direction  of  rotation  and  the 
factor  (Va  -  K„  r )  accounts  for  the  effect  of  relative  wind. 


D.  YAW  RESISTANCE  AT  THE  HOOK 

A  single  yaw  degree  of  freedom  simulation  model  [Appendix  A]  was  used  to 


model  yaw  moment  corrections  for  the  GenHel  /  Slung  Load  program.  The  corrections 
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for  forward  flight  yaw  motions  focused  on  two  aspects,  the  yaw  motions  due  to  dynamic 
aerodynamics  and  the  yaw  resistance  at  the  hook.  Yaw  motions  in  hover  are  due  to  the 
effect  of  rotor  down-wash  swirl  on  the  load 

Two  different  sling  configurations  were  used  in  the  flight  tests.  One 
configuration  fixed  the  clevis  of  the  sling  directly  to  the  hook  on  the  helicopter  and  the 
other  used  a  swivel  between  the  sling  and  helicopter.  In  the  absence  of  a  swivel  the  sling 
legs  periodically  windup  and  unwind  due  to  the  combination  of  yaw  moment  due  to 
unsteady  aerodynamics  and  the  yaw  resistance  at  the  hook.  With  a  swivel,  the  load  spins 
up  to  a  steady  yaw  rate  detennined  by  the  combined  unsteady  aerodynamics  and  swivel 
friction.  These  two  resistance  phenomena  were  modeled  separately  as  followed 

Yaw  resistance  at  the  hook  without  a  swivel  was  determined  in  tests  conducted  at 
the  Ames  Mechanical  Engineering  Laboratory.  The  CONEX  box  was  suspended  from  a 
crane  with  a  standard  four-legged  military  sling  rated  at  ten  thousand  pounds  and  the 
crane  hook  secured  against.  A  motor  was  connected  to  the  bottom  of  the  CONEX  that 
provided  readout  of  the  torque  required  to  rotate  the  load.  Measurements  of  torque  and 
height  were  taken  at  regular  rotation  intervals  up  to  ten  turns.  Ten  turns  was  the 
maximum  number  of  revolutions  seen  in  flight  test  at  70  knots.  The  resulting  sling 
geometry  at  ten  turns  is  seen  in  figure  (5)  and  numerical  results  are  plotted  in  figures  (6) 
and  (7).  The  height  variation  with  rotation  angle  [Fig  6]  shows  a  total  shortening  of  only 
of  21  inches  for  the  total  sling  length.  However  the  corresponding  sling  geometry  [Fig  5] 
shows  about  one  half  of  the  total  sling  length  is  involved  in  the  windup. 

The  plot  of  torque  vs.  rotation  [Fig  7]  shows  two  distinct  regions  of  behavior. 
There  is  nonlinear  behavior  in  the  startup  region  from  0  to  270  degrees  and  a  linear 
region  after  that.  The  measurements  also  show  significant  hysteresis,  but  the  source  of 
this  was  not  identified.  A  table  look-up  program  [Appendix  C]  gave  hook  yaw  resistance 
due  to  sling  windup  with  data  taken  from  the  average  of  the  two  hysteresis  loops  in  figure 
(7). 

Yaw  resistance  due  to  swivel  friction  was  modeled  as 
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YM Swivel  = -Kswivel  r 
where 

Kswivel  =  1.5  -  l  ^ 


Figure  5.  Sling  Wind-Up  Test  at  10  Revolutions 
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TORQUE  (  IN-LBS 


1. 


Hover  Corrections 


It  is  assumed  that  the  load  is  entirely  immersed  in  the  helicopter  wake  at  hover 
and  that  the  wake  is  entirely  behind  the  load  at  20  knots  forward  airspeed.  The  yaw 
moment  due  to  wake  swirl  is  therefore  modeled  by  the  following  linear  equation. 

YM  SwM  =  Kswirl  x  Max  ( 0,  1  -  ) 

where  Va  is  in  knots. 

The  constant,  Kswirl,  can  be  detennined  from  the  observed  steady  yaw  rate  at 
hover  with  a  swivel  (45  degrees  per  second)  and  the  swivel  friction  constant.  The  steady 
state  solution  from  the  one-degree  of  freedom  model  is 

_  Kswirl 
ss  Kswivel 

whence  Kswirl  winds  up  to  be  40  ft  lbs  of  torque. 

2.  Model  Validation 

The  maximum  yaw  rates  for  both  swivel  and  unswivel  cases  were  calculated  from 
flight  test  data.  A  series  of  simulations  were  conducted  at  varying  airspeeds  and  the 
simulation  maximum  steady  yaw  rate  for  the  swivel  and  the  non-swivel  case  were  plotted 
against  flight  test  data  in  figure  (8)  and  (9).  A  linear  fit  of  the  flight  test  data  was  plotted 
for  comparison.  As  expected  yaw  rates  for  the  swivel  case  was  noticeably  higher  than  for 
the  unswiveled  case  for  all  airspeeds. 
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The  simulation  model  constants  KSwivei,  KDynam  and  KSwiri  were  tuned  to  flight  test 
data  at  40  knots  for  the  unswiveled  case  and  a  value  of  .3  ft-lbs  for  Knymm  was  obtained. 

The  equations  were  included  into  the  GenHel  /  slung  load  module  [Appendix  J], 
The  simulation  was  then  ran  using  control  inputs  from  flight  test  data  [Appendix  D]  and 
compared  to  flight  tests.  Figure  (10)  shows  a  typical  result  for  a  swivel  and  no-swivel 
case  and  more  comprehensive  charts  are  shown  in  appendix  (D).  The  simulations 
conducted  for  both  the  swiveled  and  unswiveled  cases  accurately  modeled  the  gross 
behavior  seen  in  flight.  Higher  frequency  behavior  related  to  detailed  variations  during 
each  revolution  is  not  as  well  simulated  but  has  the  same  frequency  content. 


No-Swivel  Case 


Swivel  Case 


Figure  10.  Yaw  Rate  Validation  Plots 
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III.  STABILIZATION  DEVICE 


A.  OVERVIEW 

This  section  considers  the  principal  categories  of  unstable  loads  and 
corresponding  inodes  of  instability,  the  general  design  considerations  for  stabilization 
devices,  and  the  available  stabilization  concepts  and  their  operational  suitability.  The 
controllable  fin  stabilizer  assembly  is  the  concept  selected  for  this  study. 


B.  MODES  OF  INSTABILITY 

Bluff  body  research  [Ref  12,  21]  showed  a  lateral  to  directional-coupled  unstable 
pendulum  as  the  major  source  of  instability.  These  loads  would  benefit  most  from  a 
stabilization  system  that  controls  the  yaw  motions  of  the  load. 

Flat  plate  loads  exhibit  aerodynamic  instability  in  which  pitch  is  always  strongly 
involved  in  the  instable  motion  [Ref  23,24].  These  loads  require  a  stabilization  system 
that  controls  pitch  as  well  as  yaw. 

Aerodynamically  active  loads  are  the  most  unstable  type  of  loads.  These  loads 
and  their  aerodynamic  surfaces  can  generate  significant  forces  and  moments.  Analyzing 
their  instability  as  loads  as  analyzing  their  instability  as  a  rigid  body  aircraft,  that  is  the 
instability  can  be  determined  from  linear  analysis  and  ordinary  stability  derivatives.  A 
stabilization  system  for  these  types  of  loads  would  have  to  be  capable  of  controlling  the 
inherent  forces  and  moments  of  the  loads. 

C.  DESIGN  CONSIDERATIONS 

Operational  suitability  of  the  stabilization  device  requires  that  they  be  safe, 
imposing  a  minimal  weight  penalty  and  be  easy  to  use. 

Safety  of  the  aircraft,  crew  and  load  handlers  are  of  utmost  importance.  A 
stabilization  device  may  introduce  its  own  hazards,  such  as  the  possibility  of  a  drag  chute 
becoming  entangled  in  the  tail  rotor,  or  the  possibility  of  blowing  the  load  about  in  the 
downwash  of  heavy  helicopters,  endangering  ground  personnel. 


21 


The  weight  of  the  stabilization  device  reduces  the  payload  capacity.  Ease  of  use 
relates  to  ease  of  transportation,  assembly  and  attachment  with  minimal  support  and 
special  equipment  requirements.  This  is  affected  by  weight,  size  and  complexity  of  the 
device. 

D.  APPLICATION 

Any  stabilization  system  developed  for  operational  use  must  be  applicable  to  a 
wide  range  of  aerodynamically  unstable  loads.  Flow  separators  and  stabilization  systems 
mounted  directly  onto  the  load  are  very  load  specific  and  can  be  difficult  or  impossible  to 
transfer  to  other  similar  loads.  For  example  a  stabilization  system  designed  to  fit  on  a 
CONEX  box  might  not  be  adaptable  to  a  vehicle  displaying  similar  aerodynamic 
instabilities.  The  multi-service  Helicopter  External  Air  Transport  manuals  (HEAT)  [Ref 
25]  have  detailed  infonnation  on  numerous  loads  carried  by  U.S.  military  helicopters.  A 
review  of  the  loads  authorized  for  transport  with  a  single  point  suspension  system  gives 
an  idea  of  the  range  of  load  sizes  that  could  benefit  from  a  stabilization  system.  A  review 
of  the  loads  authorized  for  transport  with  a  single  point  suspension  system  gives  an  idea 
of  the  range  of  load  sizes  and  max  operational  speed  for  loads  that  could  benefit  from  a 
stabilization  system. 


Load 

Load  Type 

Distance 
Between 
Lift  Points 
(ft) 

Max 

Airspeed 

(Kts) 

HAWK  Acquisition  Radar 

Bluff  Body 

7X4 

75 

Fuel  Dispensing  System 

Bluff  Body 

8X4 

60 

5-Ton  Truck 

Bluff  Body 

20X8 

80 

1  Vi- Ton  Trailer 

Bluff  Body 

10X5 

45 

Water  Trailer 

Bluff  Body 

8X5 

80 

Collapsible  Tank  Assembly 

Bluff  Body 

15X8 

35 

Aircraft  airmobile  maintenance  shop 

Bluff  Body 

15  X  10 

60 

CONEX  Box 

Bluff  Body 

8X6 

60 

Medium  Span  Bridge 

Flat  Plate 

20  X  15 

60 

22 


Floating  Bridge  Span 

Flat  Plate 

15  X  15 

50 

Flatbed  Trailer 

Flat  Plate 

25  X  15 

70 

Table  1.  Load  Parameters 


E.  SELECTED  STABILIZATION  DEVICE 


The  merits  of  several  load  stabilization  systems  are  compared  in  table  (2). 


Stabilization  Device 

Advantages 

Disadvantages 

Active  Jet  Controls 

No  interaction  with  load 
handlers 

Weight,  Complexity 

Spinning  Wheel 

Weight,  Complexity 

Flow  Diverters 

Simplicity,  Weight 

Load  Specific 

Wake  Splitters 

Simplicity 

Load  Specific 

Active  Arm  Controller 

Inherent  to  Helo 

Weight,  Complexity 

Controllable  Fins 

Simplicity,  Weight 

Attached  by  Ground  Crew 

Table  2.  Stabilization  System  Comparison 


The  theoretical  stabilization  system  selected  for  this  study  is  a  tail  fin  assembly 
attached  to  a  frame.  An  active  control  surface  along  the  training  edge  of  the  airfoil  is 
proposed.  This  system  is  attached  by  short  links  between  the  load  and  sling  as  shown  in 
figure  (1 1).  This  system  is  the  most  promising  to  provide  a  simple,  low-weight  system 
that  would  be  feasible  for  military  and  civilian  operations  and  allow  for  structural 
adjustments  to  make  it  applicable  to  a  wide  range  of  loads  of  various  design. 
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Figure  11.  Load  Stabilization  System 
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IV.  STABILIZATION  PROGRAM  DEVELOPMENT 


Equations  for  the  stabilizer  aerodynamics  and  simulation  model  code  are  given  in 
this  chapter.  The  aerodynamics  is  based  on  those  given  in  reference  (20)  for  isolated 
control  surfaces.  The  model  was  first  implemented  in  a  MATLAB  program  to  provide 
illustrative  results  and  confirm  the  equations.  They  were  subsequently  implemented  in 
FORTRAN  code  and  integrated  into  the  GenHel  /  Slung  Load  simulation. 

A.  FLAT  PLATE  AERODYNAMICS 

Tischler  [Ref  20]  conducted  an  in-depth  analysis  of  flat  plate  aerodynamics  and 
the  key  points  are  summarized  here 

Tischler  found  that  the  forces  on  flat  plates  were  primarily  from  distinct 
circulation  and  edge  vortex  effects  and  could  be  modeled  separately  in  three  regions  of 
the  pitch  and  yaw  domain  which  are  shown  in  figure  (12). 


Pitch 


CX2 


ai 


Crossflow 

Region 

Transition  Region 

Prestall  Region 

->  Yaw 


Jt/2 


Figure  12.  Flat  Plate  Computational  Regions 


Aerodynamics  in  the  pre-stall  region  is  based  on  thin  airfoil  theory  and  all  forces 
are  primarily  due  to  circulation  effects  and  depend  on  dynamic  pressure  (q)  and  the  angle 
of  attack.  As  in  basic  thin  airfoil  theory  all  forces  can  be  assumed  to  be  acting  at  the 
quarter  chord  point  of  the  plate. 

The  cross-flow  region  was  that  region  where  the  entire  down-wind  surface  of  the 
flat  plate  is  in  stall.  In  this  region  drag  forces  predominate  and  are  due  primarily  to  flow 
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separation  and  vortex  effects.  In  this  region  the  center  of  pressure  is  at  the  geometric 
center  of  the  plate. 

In  the  transition  region  the  aerodynamic  forces  are  modeled  as  varying  linearly 
across  the  region  from  the  pre-stall  to  the  cross-flow  regions.  The  forces  in  this  region 
are  a  combination  of  circulation  and  edge  vortex  effects.  The  center  of  pressure  for  this 
region  transitions  from  the  quarter  chord  to  geometric  center. 

B.  STABILIZER  AERODYNAMIC  MODEL 

The  airfoil  for  a  load  stabilization  system  will  experience  three  different  flow 
regimes;  pre-stall,  stall  transition  and  cross  flow  as  shown  in  figure  (13).  The  different 
flow  regimes  around  the  airfoil  are  defined  by  two  stall  angles;  the  angle  of  attack  where 
the  airfoil  first  starts  to  enter  stall  [pc\tall)  and  the  angle  of  attack  where  the  airfoil  is 
unable  to  produce  any  lift  due  to  circulation  effects  [oc2Stall\  In  addition  the  airfoil  is 
considered  to  be  in  total  stall  when  the  airflow  is  along  the  leading  edge  of  the 
airfoil  [j3  =  ±90°)  or  if  reverse  flow  over  the  airfoil  exists  (|/?| )  90u ) .  Table  (3)  shows  the 

flow  regimes  in  the  a  P  plane 

For  this  model  cc\taU  is  20°  and  cc2StaU  is  45°  .  a  is  the  pitch  angle  between  the  x- 

axis  of  the  load  and  the  free  stream  velocity  vector  and  P  is  the  yaw  angle  between  the  x- 
axis  of  the  load  and  the  free  stream  velocity  vector. 


a  Stall 


Figure  13.  Flow  Regimes  for  Load  Stabilization  Airfoil 
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a 

P 

Pre-Stall 

M  Stall 

\/3\{ttI2 

Stall  Transition 

& Stall  (  ^  Stall 

Cross  flow 

\a\  )  OC Stall 

\j3\);r/2 

Table  3.  Control  Surface  Flow  Regimes 


1.  Symbols 

In  calculating  the  forces  and  moments  the  following  constants  and  equations  are 
defined. 

u,v,w  Body  axis  components  of  velocity 

a ,  j3  Angle  of  attack  and  of  yaw  respectively 

S  Stabilizer  planform  area. 

C  Stabilizer  chord. 

CDo  Skin  friction  drag. 

CD  Profile  drag  coefficient. 

CDi  Induced  drag  coefficient. 

CLa  Lift  curve  slope. 

C ,  Coefficient  of  lift  due  to  control  surface  deflection. 

S  Control  surface  deflection 

Vxy=Ju2+v2 

Vx:  =  ylu2  +W2 
Vyz  =  a/v2  +  w2 
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2. 


Pre-Stall 


The  airfoil  body  axis  forces  Fx ,  Fy  and  Fz  for  this  region  are  given  from  the  lift 
and  drag  coefficients  as; 


Fx=-%pVvuS 


+ 


C2  oc2  \ 

^  La  ^ 

K  e  AR  j 


Fy  =-VipVyz  vSCDo 
Fz=~y,P  V>S[CL„a+CuS] 

In  the  prestall  region  the  resultant  lift  force  due  to  circulation  is  normally 
considered  to  act  through  the  quarter  chord  of  the  airfoil.  This  results  in  a  pitching 
moment  about  the  geometric  center  of 


3.  Cross  Flow 

In  the  cross  flow  regime  the  stabilizer  is  completely  stalled  and  all  forces  are  a 
function  of  drag.  Fx  and  Fy  are  due  to  skin  friction  drag  and  Fz  is  a  due  to  profile  drag. 

fx  =-y2pvxyuscDo 

FY  =-YipVyz  vSCDo 
Fz=-1ApVxywSCDp  |  sin  (or  )| 

where  5,|sin(«')|  is  the  frontal  area  presented  to  the  free  stream. 

In  the  cross  flow  regime  the  center  of  pressure  coincides  with  the  geometric 
center  so  that  all  moments  about  the  geometric  center  are  zero. 

4.  Stall  Transition 

Force  calculations  for  Fx  in  the  stall  transition  regime  is  a  linear  interpolation 
between  the  forces  at  a\tall  and  a2Smll . 
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F  =F  +■ 
1  x  1  x  ~ 


F 2  -Fl 

1  X  1  X 

ry 2  —  nA 

^  Stall  w  Stall 


X 


J#|  OC staii .  r 


where  F'x  is  calculated  using  the  pre-stall  equation  at  a 


Stall 


Fx  -  ■ 

1  x 


-KPKruS 


cDo  + 


C2  [ a 1  ) 

^  La  Stall  ) 

71  e  AR 


2  A 


and  Fx  is  calculated  using  an  adjusted  equation  for  the  dynamic  pressure  to  the  relative 
span  to  obtain  the  correct  wind  velocity  and  sign  at  a2SmU  and  is 


F}=~%PVv 2  u2SCDo 
Where 

11 2  =V„  Cos(cc2Stall  )Sign(Cos(cc2Stall )) 

^xv2  = 


!u l  +  V2 


No  interpolation  is  needed  for  Fy  since  its  equation  is  the  same  for  all  regimes. 


Fy=-y2pVyzvS  C 


' Do 


The  calculations  of  Fz  is  similar  to  that  for  Fx . 


F, 


Fl  +■ 
1  z  ~ 


F 2  - F 1 

1  Z  1  Z 

cc2  —  ocx 

00  Stall  ^  Stall  , 


x  \a  -  a 


i 

Stall . 


where  Fz  is  calculated  using  the  pre-stall  Fz  equation  at  a\tall . 

F'z=-'ApVlzS  (c„  <„  Sign(a)+CLSS) 

and  F2  is  calculated  using  an  adjusted  equation  for  the  dynamic  pressure  to  the  relative 
span  to  obtain  the  correct  wind  velocity  and  sign  at  a2Stall  and  is 
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FX  =-YiP  y„2  w2  S  CDp  |  sin  (or  | 

Where 

W'’2  =VB  Sin{pc2stall )  Sign(Sin(a)) 

Vxz2  =  V1'2  +W2 

The  pitching  moment  is  calculated  assuming  the  resultant  lift  force  point  of 
application  migrates  from  the  quarter  to  half  chord  proportionally  as  a  increases  from 

(X Stall  t°  (X Stall  • 


M 


F  C 

.  z 


+ 


F  C 

1  2  / 


a 


Stall  ^  Stall 


a 


5.  Forces  and  Moments  in  Load  Body  Axes 


The  above  equations  are  given  for  vector  components  in  the  body  axes  of  the 
stabilizer  surface.  Body  axes  of  the  horizontal  stabilizer  are  assumed  to  be  parallel  to  the 
load  body  axes  so  no  transfonnation  is  required.  However,  the  vertical  stabilizer  body 
axes  are  obtained  by  rotating  counter  clockwise  90  degrees  about  the  load  x-axis. 
Consequently,  velocity  components  for  the  vertical  stabilizer  axes  are  obtained  from  the 
load  body  axes  components  as 


^  u  ^ 


V  ^  J  Vert  Stab 


f u  ^ 


w 


V  V)Load 


The  total  forces  from  the  horizontal  and  vertical  stabilizers  in  load  body  axes  are: 

A  F  =  Fh  +  Fv 

^  X  rx  T rx 

A F  =FH  +  Fv 

y  1  y  \  1  z 

A F  =  Fh —Fv 

L*1  Z  1  Z  1  Y 

The  contribution  of  the  stabilizer  assembly  to  the  load  moments  about  the  load 
geometric  center  is: 
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A Mlx  =  [-  Fy  A Z  +  Fz  A Yf  -[Fy  AY  +  Fz  A Zf 

AM y  =  [Fx  AZ  - Fz  AX  +  My]h  +  [FX  AZ  +  Fy  A xj 

A Mx  =  [-Fx  AY  +  Fy  AX]h  +[-Fx  AY  +  Fz  A X-MYf 

where  the  superscripts  designate  the  horizontal  and  vertical  stabilizer  forces  and 
AX,AY,AZ  are  the  body  axes  coordinates  of  the  stabilizer  assembly  geometric  center 
from  the  load  geometric  center. 

6.  Illustrative  Results 

A  MATLAB  model  [Appendix  E]  was  used  to  check  the  force  and  moment 
equations.  Calculations  and  plots  were  made  for  a  between  ±90  degrees  and  for  P 
between  ±180. 

Stabilizer  size  and  orientation  for  this  model  was  detennined  by  fitting  the 
stabilizer  to  a  CONEX  box  load.  The  airfoil  used  for  both  the  vertical  and  horizontal 
stabilizer  was  a  standard  NACA  0015  airfoil  with  typical  aerodynamic  values  chosen  as 
listed  in  table  (4). 


Table  4.  Stabilizer  Parameters 
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The  Forces  and  moments  of  both  stabilizer  surfaces  were  plotted  individually  and 
checked  for  expected  orientation  and  magnitude.  Additional  plots  are  shown  in  appendix 

(F). 


Vertical  Forces  Vert  Stab,  Load— body  centerd  axis 


Figure  14.  Vertical  Stabilizer  Load  Yaw  Force 


Lateral  Forces  Horz  Stab,  Load— body  centerd  axis 


Figure  15.  Horizontal  Stabilizer  Load  Yaw  Force 


32 


The  forces  and  moments  were  then  transfonned  from  airfoil-centered  axis  to  load 
body-centered  axis  and  plots  of  the  resultant  load-body  centered  axis  forces  were  checked 
for  expected  orientation  and  magnitude.  Additional  plots  are  shown  in  appendix  (H). 


Load  Body  Axis  Forces  vs  Beta 
alpha  =0  airspeed=60  kts 
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Figure  16.  Load  Body  Axes  Forces 
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c. 


FORTRAN  MODULE 


The  above  stabilizer  equations  were  implemented  in  a  FORTRAN  subroutine 
[Appendix  G]  and  integrated  in  the  GenHel  /  Slung  Load  program.  The  subroutine 
models  the  complete  horizontal  and  vertical  stabilizer  assembly  and  generates  the 
stabilizer  contribution  to  the  load  force  and  moment  sums.  Computation  of  velocity  at 
the  stabilizer  geometric  center  must  account  for  load  angular  velocity. 


u  =  —va2s2(X)  +  q  x  AZ  -rX  AT 
v  =  -va2s2(2)  +  r  x  AT  —  p  x  AZ 
w  =  - va2s2(3 )  +  p  x  AT  -  q  x  AX 

where  va2s2  is  the  load  center  of  gravity  velocity  vector  and  ( p,q,r )  are  the  load 
angular  velocities.  Data  for  standard  NASA  airfoils  is  available  for  two-dimensional 
flow,  and  CLa  can  be  converted  to  three-dimensional  flow  following  reference  (28). 


2  +  V4  +  AR2xB2 

Where 

B2  =  1-  Mach2 
AR  =  Aspect  Ratio 


Modifications  to  the  initial  GenHel  /  Slung  Load  simulation  from  reference  (17) 
are  documented  in  Appendices  J  through  O.  The  stabilizer  subroutine  appears  as  a  single 
call  in  the  slung  load  two-body  dynamics  model  [Appendix  J],  and  otherwise  common 
blocks  [Appendix  O]  and  input  /  output  subroutines  [Appendix  K,  L]  are  revised  to 
accommodate  the  new  stabilizer  variables.  Input  values  for  the  stabilizer  parameters  and 
options  are  isolated  in  a  single  file  given  in  appendix  (I).  The  post-run  processing  code 
was  revised  as  documented  in  appendix  (N). 
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V.  RESULTS  AND  CONCLUSIONS 


A.  SIMULATION  RESULTS 

Once  the  simulation  yaw  motion  had  been  validated  using  flight  test  data  a 
theoretical  simulation  assessment  of  the  envelope  expansion  obtained  from  both  passive 
and  active  stabilization  was  conducted.  For  the  assessment  only  the  stability 
contributions  of  the  vertical  stabilizer  were  considered  by  setting  the  area  of  the 
horizontal  stabilizer  to  zero.  The  airfoil  chosen  for  the  stabilizer  was  the  NACA  0015 
with  lift  and  drag  data  taken  from  Ref  (28).  For  the  active  stabilizer  a  control  surface  of 
20%  of  the  total  chord  with  a  maximum  deflection  of  20  degrees  was  used.  The  stabilizer 
was  placed  centered  laterally  and  slightly  behind  and  above  the  back  edge  of  the  box. 
The  corresponding  stabilizer  geometric  center  was  located  at  (-8, 0,-5)  feet  in  the  x,  y  and 
z  directions  respectively.  The  maximum  feasible  stabilizer  size  for  use  on  a  CONEX 
with  a  4  legged  sling  is  4  ft  by  5  ft  and  was  the  upper  limit  used  in  this  simulation. 

The  test  case  4,000-pound  CONEX  box  without  a  stabilizer  displays  divergent 
yaw  rates  above  70  knots  in  the  simulation.  The  addition  of  the  stabilizer  provided 
damping  and  extended  this  range,  depending  on  stabilizer  size  and  whether  the  stabilizer 
was  passive  or  active.  The  effects  of  the  stabilizer  were  assessed  in  a  series  of  simulation 
runs  with  stabilizers  of  various  sizes  over  a  speed  range  from  60  to  120  knots.  Damping 
ratio  was  computed  from  the  yaw  rate  time  history. 


and  the  values  T,  t,  y?  and  v;  are  obtained  from  the  time  history  plots. 
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Figure  17.  Damping  Ratio  Calculations 

Additional  plots  of  the  yaw  rates  are  given  in  appendix  (P).  A  damping  ratio  of .  1 
was  judged  to  provide  adequate  yaw  motion  stabilization  and  was  selected  as  the  target 
damping. 

Figure  (18)  illustrates  the  different  load  yaw  motions  without  and  with  a  3  ft  by  4 
ft  stabilizer.  Plotted  are  yaw  angel  (PS2)  in  degrees  and  yaw  rate  (R2)  in  feet  per  second 
versus  time  in  seconds.  Figure  (19)  shows  the  theoretical  damping  ratio  of  the  passive 
stabilization  device  versus  airspeed  in  knots.  Figure  (20)  is  for  the  same  size  stabilization 
device,  but  equipped  with  a  training  edge  control  surface  of  20  percent  chord. 

As  seen  the  CONEX  yaw  motion  and  rate  at  100  knots  demonstrates  negative 
damping  without  a  stabilizer,  is  damped  at .  1  with  a  passive  stabilizer  and  is  well  damped 
(.4)  for  the  active  stabilizer.  A  larger  area  is  required  for  a  passive  stabilization  system  to 
reach  the  desired  damping  and  will  result  in  undesired  additional  rolling  moment,  but 
does  not  incur  the  additional  complexity  associated  with  an  active  stabilization  system 
requiring  control  systems  and  rate  feedback  gyros. 
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Figure  18.  Effect  of  Stabilizer  on  Load  Yaw  Motions 
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Dampin  Ratio  Damping  Ratio 


Passive  Stabilizer  Damping  Ratio  vs  Airspeed 
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Figure  19.  Passive  Stabilization  System  Damping  Ratio 


Active  Stabilizer  Damping  Ratio  vs  Airspeed 


Figure  20.  Active  Stabilization  system  Damping  Ratio 
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Results  for  passive  stabilization  are  shown  in  figure  (19).  Passive  stabilization 
with  an  area  of  less  than  eight  square  feet  provided  negligible  yaw  damping,  although 
neutral  stability  was  extended  to  90  knots.  Stabilizers  with  fifteen  or  more  square  feet 
provided  the  desired  damping  at  70  knots  out  to  118  knows  and  beyond.  While  8  to  12 
square  feet  areas  provided  positive  damping  it  only  reached  the  desired  damping  over  a 
small  range  of  airspeeds. 

The  addition  of  active  stabilization  requires  smaller  areas  as  expected  [Fig  20] 
with  a  requirement  for  an  area  of  only  8  square  feet  to  produce  the  desired  damping  ratio. 
Stabilizer  areas  below  this  provided  no  improvement  over  the  passive  stabilizer. 
Stabilizer  areas  of  fifteen  square  feet  and  up  showed  large  damping,  to  .52,  but  little 
corresponding  improvement  in  yaw  rate  behavior,  as  seen  in  figure  (21).  Plotted  are  yaw 
rate  (R2)  in  feet  per  second  versus  time  in  seconds. 


0.00  2.0.00  40*00  &Q.QO 


2X4  Active  Stabilizer 


Figure  21.  Yaw  Rates  for  Selected  Active  Stabilization  System 


Table  (6)  shows  the  envelope  expansion  obtained  by  the  use  of  passive  and  active 
stabilizers.  The  critical  airspeed  is  that  point  where  the  damping  of  the  slung  load  / 
stabilization  system  becomes  divergent.  The  passive  stabilizer  increases  the  critical 
airspeed  of  the  helicopter  /  slung  load  system  up  to  89%.  The  active  stabilization  system 
doubles  the  critical  airspeed. 
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Size  (ft) 

Type 

Critical  Airspeed  (kts) 

Percentage  Increase 

1X3 

Passive 

85 

21% 

2X3 

Passive 

87 

24% 

2X4 

Passive 

112 

60% 

3X4 

Passive 

113 

61% 

3X5 

Passive 

118 

69% 

4X5 

Passive 

132 

89% 

1X3 

Active 

85 

21% 

2X3 

Active 

87 

24% 

2X4 

Active 

127 

81% 

3X4 

Active 

127 

81% 

3X5 

Active 

135 

93% 

4X5 

Active 

140 

100% 

Table  5.  Speed  Envelope  Expansion 
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B.  CONCLUSIONS 

The  unstable  load  motions  of  bluff  bodies  seen  in  flight  are  due  to  load  unsteady 
aerodynamics.  These  instabilities  raise  an  important  safety  concern  and  can  limit  the 
speed  envelope  for  their  external  transport  well  below  the  power-limited  airspeed  of  the 
helicopter  alone.  Stabilizer  fins  provide  a  promising  method  of  stabilizing  bluff  bodies 
both  in  effectiveness  and  in  operational  feasibility. 

Results  for  a  4,000  pound  CONEX  and  a  vertical  fin  stabilizer  showed  that  its  70 
knot  speed  envelope  could  be  extended  to  120  knots  using  a  passive  stabilizer  of  fifteen 
square  feet  area,  or  an  active  stabilizer  with  eight  square  feet  area  and  a  trailing  edge 
control  surface  of  20  percent  chord.  Though  a  much  smaller  active  stabilization  system  is 
needed  to  obtain  the  desired  damping  it  comes  with  the  additional  complexity  of 
instrumentation  and  control  systems. 

Both  passive  and  active  stabilization  systems  displayed  a  rapid  drop  in 
effectiveness  at  airspeeds  below  60  knots,  so  that  additional  design  analysis  would  be 
needed  for  very  difficult  bluff  body  loads  with  unstable  speeds  much  lower  than  the 
CONEX. 

C.  FURTHER  RESEARCH 

Construction  and  flight-testing  of  the  proposed  stabilization  system  is  essential  in 
validating  the  current  simulation.  Once  validated,  application  of  the  stabilization  system 
can  be  expanded  to  other  types  of  loads  such  as  flat  plate  type  loads  and  non  box-type 
bluff  bodies  like  vehicles. 

To  expand  the  scope  of  the  stabilization  system,  a  better  knowledge  of  the  driving 
forces  due  to  dynamic  aerodynamics  are  needed.  Once  these  phenomena  are  understood 
the  simulation  can  be  expanded  to  cover  a  wide  range  of  loads  allowing  the  stability  and 
effects  of  a  load  to  be  studied  in  depth  prior  to  any  flight-testing. 
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APPENDIX  A  YAWDOF3.M 


FORTRAN  program  to  develop  and  check  the  correcting  equations  for  the  yaw 
degree  of  freedom  in  the  GenHel  /  Slung  Load  program.  Program  by  Cicolani  L.  and 
Ehlers  G. 

C  fde  yawdoB.f  18  april  01 

C  simulate  yaw  DOF  for  swiveled  hook,  using  techdat4  WT  data.  current 
version  is  conex4a.f 

C  revise  alfa,beta  computation  to  correspond  to  load  w  steady  trail 
angle  rotating  about  its  vertical  axis 

program  yawdof2 
parameter (  nchan  =  11) 

real  va2s2 (3) ,  fa22(3),  ma22(3),  faw(6),  Tbn(3,3) 

real  Kr, Kpsi, Fdyn, Izz, ktstfps, dynam, swirl 

real*8  time, dat8 (nchan) 

character*20  fn,  sn (nchan) 

logical*4  L, openW 

integer  flag 

common/xf loat/a (500) /ifixed/ia (50) 

common/ if loat/r load (200 ) , rload3 (200 ) , rload4 (200 ) , rload5 (200 ) 
equivalence (A (183) ,  rho) 
equivalence (A (359) ,  rtd) 

equivalence (rload5 (73) ,  alf2d) 
equivalence (rload5 (74 ) ,  bet2d) 
equivalence (rload5 (76) ,  faw(l)) 
equivalence (rload5 (82) ,  alfao) 
equivalence (rload5 (83) ,  betao) 

equivalence (va2s2 ( 1 ) ,  u) 
equivalence (va2s2 (2 ) ,  v) 
equivalence (va2s2 (3) ,  w) 


data 

x  tstop, dt/300 . ,  .01/, 

x  vakts, flag/50, 0/, 
x  iaero, Aym/1, 400/, 
x  sn/ 

x  ' dr  ' , ' r  ' , ' psi 

x  'betao  ',  'alfao',  'u 
x  ' ym  '  / 


' ,  ' beta  ' ,  ' alf a 

' ,  '  v  ' ,  '  w 
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rho 

= 

.  00237689 

rtd 

= 

57.295780 

dtr 

= 

1/rtd 

ktstfps 

= 

1 . 68894 

Pi 

= 

3 . 14159274 

Kr 

= 

0 

Kpsi 

= 

0 

Fdyn 

= 

.  7 

thto 

= 

20 

psio 

= 

0  . 

aoao 

= 

-20  . 

Izz 

= 

1376 

fn 

= 

'  test . xp ' 

rdps 

= 

0  . 

name 1 i st / in /t stop, dt , vakt s , aoao, Kr , Kpsi, Fdyn, psio, rdps , f n, 
x  iaero,  Aym,  thto 

103  continue 

c  Read  in  output  file  name 

90  type  *,  'Enter  name  of  output  file  name . xp ' 
read (5, 91, err=90)  fn 

91  format (A) 

c  Read  in  Va 

92  type  *,  'Enter  Va ' 
read (5, 93, err=92) vakts 

93  format (F3 . 0 ) 


write (6, in) 

104  type  *,'any  changes?  (CR, 1)  =  (no, yes)' 
read (5, 101, err  =  104)  flag 
if  (flag.ne.0)  then 
flag  =  0 

102  type*, 'enter  changes  to  &in' 

read (5, in,err=102) 
end  if 

101  format ( 14 ) 

L  =  openW ( 1 , f n, nchan, sn, ' unc3 ' ) 


t 

=  0 

dto2 

=  dt/2 

odr 

=  -60 

r 

=  rdps* dtr 

o_r 

=  r 

va 

=  vakts*ktstfps 

psi 

=  psio* dtr 

tht 

=  thto* dtr 

stht 

=  sin (tht ) 

dr 

=  0 
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100  continue 


cpsi  =  cos (psi ) 
spsi  =  sin  (psi ) 

sph  =  -stht*spsi 
ph  =  asin ( sph) 
cph  =  cos (ph) 
sth  =  -cpsi*stht/cph 
th  =  asin ( sth) 
cth  =  cos (th) 


Tbn (1, 1) 
Tbn (1, 2) 
Tbn (1, 3) 
Tbn (2, 1) 
Tbn (2,2) 
Tbn (2,3) 
Tbn (3, 1) 
Tbn (3, 2) 
Tbn (3,3) 


CPSI*CTH 

CTH*SPSI 

-STH 

CPSI * SPH* STH-CPH* SPSI 
SPH* SPSI *STH+CPH*CPSI 
CTH*SPH 

CPH*CPSI*STH+SPH*SPSI 
CPH* SPSI *STH-SPH*CPSI 
CPH*CTH 


alfa  =  atan (Tbn (3, 1) /Tbn (1,  1) ) 
beta  =  asin (Tbn  (2, 1) ) 
s  =  sign ( 1 , Tbn  ( 1 , 1 ) ) 

if  ( s . it . 0 . and . beta . it . 0 )  beta  =  -pi  -  beta 
if  ( s . it . 0 . and . beta . gt . 0 )  beta  =  pi  -  beta 


calf 

salf 

cbet 

sbet 

u 

v 

w 

q 


=  cos (alfa) 

=  sin (alfa) 

=  cos (beta) 

=  sin (beta) 

=  Va*calf*cbet 
=  Va*sbet 
=  Va*salf*cbet 
=  . 5*rho*va*va 


if  (iaero.eq.l)  then 

call  conex4a (va2s2 , f a22 , ma22 ) 
ym  =  ma22 ( 3 ) 
else 

ym  =  Aym*sin (4*beta) 
end  if 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccc 


dynam=  sign (1, r) *q* (va-fdyn*abs (r*rtd) ) 
swirl=  max (0, 5* (l-vakts/20) ) 
c  ym  =  ym+dynam+swirl 


dr 

=  (ym- 

-Kr*r-Kpsi*psi ) /Izz 

r 

=  r  + 

(3.*dr  -  odr) *dto2 

psi 

=  psi 

+  (o_r  +  r) *dto2 

t 

=  t  + 

dt 

odr 

=  dr 

o_r 

=  r 
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c  store  unc3  file  here.  This  is  clumsy 


time 

= 

t 

dat8 

(1) 

= 

dr 

dat8 

(2) 

= 

r*rtd 

dat8 

(3) 

= 

psi*rtd 

dat8 

(4) 

= 

beta*rtd 

dat8 

(5) 

= 

alf a*rtd 

dat8 

(6) 

= 

betao 

dat8 

(7) 

= 

alf  ao 

dat8 

(8) 

= 

u 

dat8 

(9) 

= 

V 

dat8 

(10) 

i  = 

w 

dat8 

(11) 

i  = 

ym 

call  fwrite(l,  time,  dat8) 
if  (t . le . tstop+dt )  go  to  100 
call  closeW(l) 

301  type  *,  'another  run?  (cr,l)  =  (no, yes) ' 
read (5, 101, err=301)  flag 
if  (flag.ne.O)  then 
flag  =  0 
goto  103 
end  if 

stop 

end 


subroutine  serchl (x,tx,nx, ix, sigx) 
dimension  tx(l) 

xl  =  amaxl (tx ( 1 ) , aminl (x, tx (nx) ) ) 
i  =  1 

1  if  (i.eq.nx)  then 
ix  =  nx  -1 
sigx  =  1 

else  if  (xl . It .tx  (i  +  1) )  then 
ix  =  i 

sigx  =  (xl  -  tx (i) ) / (tx (i  +  1) -tx  (i) ) 
else 

i  =  i  +  1 
go  to  1 
end  if 
return 
end 

c  2-D  table  lookup  routine  for  an  array  A(nx,ny) . 

function  f2d (ix, iy, sigx, sigy, nx, tf ) 

dimension  tf(l) 

kOl  =  nx*iy  +  ix 
kll  =  kOl  +  1 
kOO  =  kOl  -  nx 
klO  =  kOO  +  1 
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fOO  =  tf (kOO) 
fOl  =  tf (kOl ) 
flO  =  tf (klO ) 
fll  =  tf (kll) 

sigys  =  1  -  sigx 

if  ( sigy . le . sigys )  then 

f 2d  =  fOO  +  (flO-fOO) *sigx  +  (fOl-fOO) *sigy 
else 

f 2d  =  fll  -  (fll-fOl) * (1-sigx)  -  (fll-flO) * (1-sigy) 
end  if 
return 
end 
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APPENDIX  B  CONEX4A.F 


Forces  and  Moments  data  from  Technion  Institute  wind  tunnel  experiment. 
Lookup  program  to  extract  data  for  GenHel  /  Slung  Load  simulation  follows  data. 
Program  by  Cicolani  L> 


c  subroutine  /harrier/tyson/GenHel/batch/sl/conex4a . f 

C  conex  static  aerodynamics  from  Technion  CONEX  WT  data  #4  april 

01 

C  data  revised  by  techdat4.m  to  impose 
C  (1)  doq(aoa,90)  =  fixed 

C  (2)  loq,  rmoq,  pmoq  =  0  at  (alfa,beta)  =  (0,90) 

C  (3)  loq,  rmoq,  pmoq  =  0  at  aoa  =  -90, +90. 

C  This  version  stores  tables  in  (alfa,beta)  in  [-90, 90] x [0, 180]  and 
C  computes  (alfa,beta)  S.T.  |alfa|  <  90. 

C  PT's  wake  model  omitted  this  version 

subroutine  conex4a 
include  'slvars.cmn' 

C123456789C123456789C123456789C123456789C123456789C123456789C123456789C 

1 

real  alf g_cnx ( 37 ) ,  betg_cnx ( 37 ) , 
x  doqt_cnx (37,37) , yoqt_cnx (37,37) , loqt_cnx (37,37) , 

x  rmoqt_cnx ( 37 , 37 ) , pmoqt_cnx (37 , 37 ) ,  ymoqt_cnx (37, 37) , 

x  s (6, 2) , faw (6) , fawo (6) , T2w  (3, 3) 

equivalence ( f aw ( 1 ) ,  fa2w(l)) 

C  fortran  stores  by  column.  each  column  corresponds  to  a  single  value 
of  beta  here  -  the  reverse 

C  of  the  storage  in  milvan_arc.f  where  each  column  was  a  value  of  alfa. 


data  alfg_cnx/ 


X 

-90 

o 

o 

-85. 

o 

o 

-80 . 

o 

o 

-75. 

o 

o 

-70  . 

o 

o 

-65. 

o 

o 

-60  . 

00 

X 

-55 

o 

o 

-50 . 

o 

o 

-45 . 

o 

o 

-40  . 

o 

o 

-35. 

o 

o 

-30  . 

o 

o 

-25. 

00 

X 

-20 

o 

o 

-15. 

o 

o 

-10 . 

o 

o 

-5. 

o 

o 

0  . 

o 

o 

5. 

o 

o 

10  . 

00 

X 

15 

o 

o 

20 . 

o 

o 

25  . 

o 

o 

30  . 

o 

o 

35  . 

o 

o 

40  . 

o 

o 

45  . 

00 

X 

50 

o 

o 

55. 

o 

o 

60  . 

o 

o 

65  . 

o 

o 

70  . 

o 

o 

75  . 

o 

o 

80  . 

00 

X 

85 

o 

o 

90  . 

.  00/ 

data  1 

betg_ 

cnx/ 

X 

0 

O 

o 

5. 

o 

o 

10  . 

o 

o 

15. 

o 

o 

20  . 

o 

o 

25. 

o 

o 

30  . 

00 

X 

35 

o 

o 

40  . 

o 

o 

45  . 

o 

o 

50  . 

o 

o 

55  . 

o 

o 

60  . 

o 

o 

65  . 

00 

X 

70 

o 

o 

75. 

o 

o 

80  . 

o 

o 

85  . 

o 

o 

90  . 

o 

o 

95  . 

o 

o 

100  . 

00 

X 

105 

o 

o 

110  . 

o 

o 

115  . 

o 

o 

120  . 

o 

o 

125  . 

o 

o 

130  . 

o 

o 

135  . 

00 

X 

140 

o 

o 

145  . 

o 

o 

150  . 

o 

o 

155  . 

o 

o 

160  . 

o 

o 

165  . 

o 

o 

170  . 

00 

X 

175 

o 

o 

180  . 

.  00/ 

data  ( (doqt_cnx (i, j)  ,  i  =  1, 37) , j  =  l, 10) / 
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X 

48  . 

33, 

50  . 

83, 

54  . 

.17, 

57  . 

.  85, 

62  . 

.45, 

66. 

.58, 

69. 

82 

X 

72  . 

92, 

74  . 

55, 

76. 

.  02, 

75. 

.  64, 

76. 

.  02, 

74  . 

.86, 

72  . 

16 

X 

68  . 

86, 

64  . 

59, 

61 . 

.22, 

59. 

.20, 

62  . 

.92, 

64  . 

.43, 

64  . 

70 

X 

66. 

15, 

68  . 

47, 

72  . 

.61, 

75. 

.98, 

78  . 

.  85, 

80  . 

.75, 

80  . 

24 

X 

79. 

00, 

76. 

5  6, 

73  . 

•  71, 

70  . 

.91, 

69. 

.  08, 

65. 

.78, 

66. 

23 

X 

65. 

99, 

66. 

76, 

X 

45. 

09, 

50  . 

78, 

54  . 

.36, 

57  . 

.10, 

60  . 

.  68, 

65. 

.12, 

68  . 

39 

X 

71 . 

51, 

73. 

65, 

75. 

.56, 

74  . 

.92, 

75. 

.16, 

73  . 

.  64 , 

70  . 

98 

X 

67  . 

42, 

63. 

77, 

61 . 

.35, 

59. 

.  80, 

61 . 

.13, 

64  . 

.  63, 

64  . 

50 

X 

65. 

45, 

68  . 

28, 

71  . 

.  94, 

75. 

.  83, 

79. 

.27, 

83. 

.  05, 

82  . 

98 

X 

81 . 
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49  . 

.51 

X 

47 

.35, 

47  . 

60, 

X 

57 

.93, 

53. 

84, 

57 

.  60, 

58  . 

59, 

57  . 

.  83, 

58  . 

.25, 

55. 

.  77 

X 

57 

.26, 

57  . 

52, 

56 

.25, 

58  . 

15, 

58  . 

.51, 

56. 

.70, 

59. 

.  42 

X 

57 

.87, 

58  . 

49, 

56 

.  83, 

54  . 

49, 

56. 

.73, 

53. 

.48, 

56. 

.  95 

X 

57 

.  50, 

56. 

71, 

57 

.70, 

55. 

57, 

57  . 

.13, 

57  . 

.  08, 

55. 

.  13 

X 

56 

.26, 

55. 

76, 

54 

.34, 

56. 

20, 

54  . 

.42, 

54  . 

.  66, 

52  . 

.26 

X 

50 

.12, 

50  . 

69, 

X 

60 

.45, 

60  . 

64 , 

59 

.23, 

62  . 

44, 

61  . 

•  44, 

60  . 

.30, 

61 . 

.20 

X 

60 

.  65, 

63. 

35, 

61 

.06, 

64  . 

68, 

62  . 

•  11, 

63. 

.81, 

61 . 

.  69 

X 

63 

.27, 

62  . 

28, 

58 

.  62, 

60  . 

18, 

59. 

.  32, 

59. 

.89, 

58  . 

.22 

X 

60 

.75, 

61 . 

10, 

60 

.15, 

61 . 

38, 

60  . 

.42, 

61 . 

.78, 
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X 

62 

.10, 

59. 

76, 

59 

.93, 

57  . 

92, 

58  . 

.31, 
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.50, 
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.  35 
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54 

.67, 

53. 

34, 

X 

63 

•  71, 
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88, 

65 

.43, 

64  . 

87, 
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.  64, 

65. 

.78, 

65. 

.  98 

X 

67 

•  11, 

69. 

21, 

68 

.61, 

69. 

16, 

68  . 

.28, 

67  . 

.76, 

68  . 

.  38 

X 

66 

.67, 

65. 

18, 

64 

.  65, 

62  . 

92, 

62  . 

.49, 

63. 

.06, 

63  . 

.79 

X 

62 

.  64 , 

64  . 

11, 

65 

.14, 

64  . 

33, 

64  . 

.36, 

66. 

.36, 

65. 

.  64 

X 

66 

.21, 

64  . 

57, 

63 

.81, 

63  . 

64, 

62  . 

.22, 

59. 

.91, 
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.21 

X 

57 

.36, 
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5  6, 
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66 

.70, 

66. 
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68 

.28, 
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07, 

68  . 

.49, 

68  . 
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X 

70 

.40, 

72  . 

47, 

73 
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72  . 

23, 
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.29, 

70  . 

•  19, 

70  . 

.  18 

X 

71 

.18, 

69. 

48, 

67 

.47, 

65  . 

44, 

65. 

.  00, 

65. 

.37, 

66. 

.09 

X 

65 

.  80, 

66. 

90, 

66 

.67, 

66. 

65 , 

67  . 

.45, 

69. 

.15, 
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.25 

X 

68 

•  14, 

67  . 

35, 

65 

.92, 

65  . 

58, 

65. 

•  71, 

63. 

.20, 

61 . 

.  15 

56 
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59 
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68 

.37, 
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.86, 

70 
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.54, 

71 

.  38, 
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61, 

71 
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X 
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•  41, 
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.61, 
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.09, 
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.  94, 

73  . 
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69 
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.54, 
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.20, 
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.16, 
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75. 

.  64, 

76 

.  02 

X 

74 

.55, 

72  . 
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6. 
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9. 
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.48, 

9. 
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5. 

41, 
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1 
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6. 
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40, 
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.  64 , 

7  . 

.36, 

7  . 

.20, 

6. 

.  90 

X 

6 

.59, 

6. 

17, 

8 

.61, 

10  . 

•17, 

12  . 

.21, 

14  . 

.53, 

16. 

.79 

X 

17 

•  91, 

18  . 

36, 

X 

7 

.90, 

8  . 

93, 

10 

■  14, 

10  . 

.15, 

9. 

.  96, 

9. 

.98, 

9. 

.  92 

X 

8 

.51, 

8  . 

60, 

9 

.52, 

9. 

.55, 

9. 

.42, 

11  . 

.  90, 

12  . 

.76 

X 

13 

.  85, 

14  . 

17, 
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.29, 

16. 
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.56, 

8  . 
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15 
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.76, 
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19, 

12 
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.93, 
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X 

14 

.77, 
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06, 

15 

.45, 
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.01, 
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.72, 
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.23, 
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X 

15 
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13. 

65, 

14 

.57, 
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.72, 

12  . 
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.76, 

12  . 
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X 

11 

.56, 
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58, 

12 

.  83, 

13  . 

.25, 
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.84, 

13  . 

•  79, 

14  . 

.  99 

X 

15 

•  41, 
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87, 

X 

7 
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.  60, 
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.  65, 
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.57, 
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-20  . 

93, 

-21 . 

95, 

-20  . 

.46, 

-16. 

84 

X 

-17 

.  64 , 

-16. 

.01, 

-14  . 

.42, 

-13  . 

65 , 

-14  . 

91, 

-13  . 

.  62, 

-12  . 

29 

X 

-12 

.75, 

-13. 

.92, 

-12  . 

.  65, 

-13  . 

52, 

-17  . 

64, 

-19. 

.26, 

-17  . 

70 

X 

-17 

.54, 

-17  . 

.  44/ 

data 

(  (ymoqt_cnx  (i. 

j)  ,  i  =  1, 

37)  , 

■  j  =  31. 

37)  / 

X 

-25 

•  94, 

-24  . 

81, 

-20  . 

.89, 

-18  . 

43, 

-16. 

97, 

-15. 

98, 

-18  . 

.  00 

X 

-15 

.  08, 

-13. 

02, 

-12  . 

.59, 

-14  . 

05, 

-15. 

21, 

-16. 

97, 

-17  . 

.  37 

X 

-21 

.92, 

-23. 

62, 

-23  . 

.52, 

-26. 

24, 

-24  . 

35, 

-21 . 

95, 

-18  . 

.43 

X 

-19 

.13, 

-18  . 

23, 

-17  . 

.  80, 

-18  . 

63, 

-17  . 

64, 

-16. 

51, 

-14  . 

.  75 

X 

-15 

.01, 

-16. 

11, 

-18  . 

.67, 

-16. 

34, 

-17  . 

21, 

-18  . 

67, 

-20  . 

.  4  6 

X 

-21 

.89, 

-23. 

58, 

X 

-32 

.22, 

-31 . 

02, 

-27  . 

•  14, 

-23. 

62, 

-23  . 

22, 

-16. 

64, 

-17  . 

.  17 

X 

-16 

.37, 

-15. 

18, 

-14  . 

.58, 

-14  . 

55, 

-17  . 

37, 

-18  . 

00, 

-20  . 

.19 

X 

-23 

.72, 

-26. 

14, 

-28  . 

.70, 

-31  . 

92, 

-29. 

66, 

-26. 

77, 

-24  . 

.48 

X 

-24 

.98, 

-22  . 

39, 

-20  . 

.53, 

-19. 

70, 

-19. 

36, 

-17  . 

87, 

-17  . 

.11 

X 

-17 

.87, 

-18  . 

40, 

-18  . 

.37, 

-19. 

5  6 , 

-22  . 

09, 

-23. 

75, 

-26. 

.  01 

X 

-28 

00 

o 

-29. 

63, 

X 

-38 

.20, 

-35. 

84, 

-32  . 

.  35, 

-31 . 

02, 

-29. 

43, 

-25. 

14, 

-22  . 

.49 

X 

-19 

.16, 

-16. 

18, 

-14  . 

.18, 

-14  . 

58, 

-15. 

78, 

-19. 

20, 

-26. 

.  90 

X 

-31 

.29, 

-33. 

51, 

-34  . 

00 

VO 

-36. 

24, 

-33. 

48, 

-31 . 

52, 

-29. 

.  13 

X 

-29 

.  96, 

-27  . 

20, 

-24  . 

00 

VO 

-22  . 

25, 

-19. 

40, 

-18  . 

17, 

-17  . 

.  70 

X 

-18 

00 

o 

-19. 

73, 

-20  . 

.  63, 

-25. 

91, 

-28  . 

00 

-31 . 

06, 

-31 . 

.  65 

X 

-35 

.04, 

-36. 

93, 

X 

-34 

.21, 

-31 . 

55, 

-28  . 

00, 

-27  . 

00, 

-27  . 

24, 

-24  . 

21, 

-20  . 

.  99 

X 

-18 

.70, 

-14  . 

75, 

-13  . 

85, 

-12  . 

4  6 , 

-16. 

01, 

-19. 

66, 

-24  . 

.48 

X 

-29 

•  99, 

-32  . 

15, 

-33  . 

48, 

-34  . 

41, 

-32  . 

95, 

-29. 

79, 

-28  . 

.53 

X 

-29 

.  63, 

-27  . 

73, 

-26. 

01, 

-23. 

65 , 

-22  . 

49, 

-19. 

96, 

-19. 

.  83 

X 

-20 

.76, 

-20  . 

69, 

-23  . 

05, 

-26. 

24, 

-29. 

69, 

-31 . 

12, 

-31 . 

.  45 

X 

-34 

.84, 

-39. 

23, 

X 

-25 

•  77, 

-23. 

52, 

-21  . 

76, 

-23  . 

48, 

-23. 

81, 

-21 . 

22, 

-19. 

.  4  6 

X 

-17 

.50, 

-14  . 

18, 

-10  . 

63, 

-9. 

77, 

-13  . 

62, 

-16. 

01, 

-22  . 

.09 

X 

-25 

.48, 

-25. 

24, 

-26. 

94, 

-26. 

90, 

-28  . 

27, 

-26. 

60, 

-23  . 

.58 

X 

-25 

.31, 

-23. 

81, 

-22  . 

88, 

-24  . 

05, 

-22  . 

49, 

-20  . 

99, 

-20  . 

.39 

X 

-20 

•  79, 

-19. 

80, 

-19. 

00, 

-20  . 

93, 

-21 . 

95, 

-24  . 

28, 

-23  . 

.  91 

X 

-27 

.40, 

-34  . 

81, 

X 

-11 

.  82, 

-9. 

77, 

-11 . 

03, 

-12  . 

65 , 

-11  . 

79, 

-11 . 

82, 

-12  . 

.56 

X 

-12 

.  65, 

-7  . 

97, 

-7  . 

91, 

-7  . 

57, 

-12  . 

75, 

-12  . 

99, 

-16. 

.44 
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X 

-17  . 

.04, 

-15. 

25, 

-14 

.  32, 

-12 

.39, 

-13. 

Oh 

00 

-14 

.  08, 

-12 

.  72 

X 

-17  . 

.04, 

-15. 

64 , 

-15 

.28, 

-18 

.27, 

-20  . 

.06, 

-15 

.18, 

-15 

.  01 

X 

-13. 

.  02, 

-14  . 

42, 

-13 

.  85, 

-12 

.  99, 

-13. 

.42, 

-15 

.51, 

-14 

.  81 

X 

-16. 

.21, 

-27  . 

40, 

X 

0  . 

.76, 

2  . 

82, 

2 

.06, 

3 

.  65, 

-0  . 

•  17, 

2 

.72, 

0 

.47 

X 

1 . 

.20, 

1 . 

13, 

0 

.  80, 

0 

.47, 

-1 . 

.46, 

-3 

.92, 

-2 

.19 

X 

-1 . 

.20, 

-0  . 

93, 

-0 

.73, 

-0 

.40, 

-0  . 

.  33, 

-0 

.37, 

-0 

.  17 

X 

-2  . 

.42, 

-1 . 

79, 

-1 

•  79, 

-3 

.59, 

-4  . 

.42, 

-1 

.93, 

-1 

.26 

X 

-2  . 

.26, 

-2  . 

69, 

-2 

.16, 

-1 

.  63, 

-2  . 

.09, 

-2 

.  69, 

-1 

.56 

X 

-1 . 

.10, 

-0  . 

03/ 

C  (alf ao, betao)  is  the  pt  in  the  region  [-90, 90] x [0, 180]  with  the  same 
aerodynamics  as 

C  (alf 2d, bet2d)  except  for  signs.  The  matrix  "s"  supplies  the  signs 
for  beta  <  0 . 


data  s/ 

x  1.,  1.,  1.,  1.,  1.,  1., 

x  l.,-l.,  l.,-l.,  l.,-l./ 

va22  =  va2s2 ( 1 ) **2  +  va2s2(2)**2  +  va2s2(3)**2 

va2  =  sqrt(va22) 

q2  =  . 5*rho*va22 

alf 2  =  0. 

bet2  =  0 . 

if  (abs(va2s2(l))+abs(va2s2(3)) . gt . . 0001 ) 
x  alf2  =  atan (va2s2 (3) /va2s2  (1) ) 

calf  =  cos  (alf 2 ) 
sbet  =  0 
cbet  =  1 

if  (va2.gt.2)  then 

sbet  =  va2s2(2)/va2 
cbet  =  va2s2 ( 1 ) / (va2*calf ) 
bet2  =  atan2 ( sbet , cbet ) 
end  if 

alf 2d  =  alf 2*r2d 
bet2d  =  bet2*r2d 


C  (alf ao, betao)  =  equivalent  (alf,  beta)  in  [-90,90]  x  [0,90] 
alfao  =  alf2d 
betao  =  abs (bet2d) 
quad  =  1 

if  (bet2d.lt.O)  quad  =  2 
C  aero  components  at  (alfao,  betao) ,  betao  >  0 


call  serchl (alfao,  alfg 

_cnx 

,  37, 

ix,  sigx) 

call  serchl (betao,  betg 

_cnx 

,  37, 

iy,  sigy) 

f awo ( 1 ) 

=  -q2*f2d(ix. 

iy. 

sigx. 

sigy,  37, 

doqt_cnx) 

f awo (2 ) 

=  q2*f2d(ix. 

iy. 

sigx. 

sigy,  37, 

yoqt_cnx) 

f  awo  ( 3 ) 

=  -q2*f2d(ix. 

iy. 

sigx. 

sigy,  37, 

loqt_cnx) 

f  awo  ( 4 ) 

=  q2*f2d(ix. 

iy. 

sigx. 

sigy,  37, 

rmoqt_cnx) 

f  awo  ( 5 ) 

=  q2*f2d(ix. 

iy. 

sigx. 

sigy,  37, 

pmoqt_cnx) 

f  awo  ( 6 ) 

=  q2*f2d(ix. 

iy. 

sigx. 

sigy,  37, 

ymoqt_cnx) 
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C  transform  from  wind  axes  to  body  axes:  Tbw  =  E2 (alf 2 ) *E3 (-bet2 ) , 
fa22  =  Tbw*fa2w,  ma22  =  Tbw*ma2w 

do  100  j  =  1,6 

100  faw(j)  =  s ( j , quad) *fawo  (  j ) 

salf  =  sin  (alf 2 ) 

T2w(l,l)  =  calf*cbet 
T2w (2,1)  =  sbet 
T2w(3,l)  =  salf*cbet 
T2w(l,2)  =  -calf*sbet 
T2w (2,2)  =  cbet 
T2w(3,2)  =  -salf*sbet 
T2w (1,3)  =  -salf 
T2w (2,3)  =  0. 

T2w (3,3)  =  calf 

f a22  ( 1 )  =  T2w(l,  1) *fa2w (1) +T2w (1, 2) *fa2w (2) +T2w (1, 3) *fa2w (3) 
f a22  (2 )  =  T2w (2, 1) *fa2w (1) +T2w (2, 2) *fa2w (2) +T2w (2, 3) *fa2w (3) 
fa22  (3)  =  T2w (3, 1) *fa2w (1) +T2w (3, 2) *fa2w (2) +T2w (3, 3) *fa2w (3) 
ma22  ( 1 )  =  T2w(l, 1) *ma2w (1) +T2w (1, 2) *ma2w (2) +T2w (1, 3) *ma2w (3) 
ma22(2)  =  T2w (2, 1) *ma2w (1) +T2w (2, 2) *ma2w (2) +T2w (2, 3) *ma2w (3) 
ma22(3)  =  T2w (3, 1) *ma2w (1) +T2w (3, 2) *ma2w (2) +T2w (3, 3) *ma2w (3) 

return 

end 


c  locate  independent  variable  x  in  array  of  values,  tx,  for  table 
lookup 

SUBROUTINE  SERCH1 (x,  tx,  nx,  ix,  sigx) 

DIMENSION  tx ( 1 ) 

xl  =  AMAX1 (tx (1) , AMIN1 (x, tx (nx) ) ) 
i  =  1 

1  IF  (i  .EQ.  nx)  THEN 
ix  =  nx  -  1 
sigx  =  1 

ELSE  IF  (xl  .LT.  tx(i+l))  THEN 
ix  =  i 

sigx  =  (xl  -  tx (i) ) / (tx (i+1) -tx (i) ) 

ELSE 

i  =  i  +  1 
GO  TO  1 
END  IF 
RETURN 
END 

c  2-D  table  lookup  routine. 

FUNCTION  F2D(ix,  iy,  sigx,  sigy,  nx,  tf) 

DIMENSION  tf  (1) 
kOl  =  nx*iy  +  ix 
kll  =  kOl  +  1 
kOO  =  kOl  -  nx 
klO  =  kOO  +  1 
fOO  =  tf  (kOO) 
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fOl  =  tf  (kOl) 
flO  =  tf (klO ) 
f 11  =  tf  (kll) 
sigys  =  1  -  sigx 


IF  (sigy 

.  LE .  sigys) 

THEN 

F2D  = 

ELSE 

fOO  +  (flO 

-  fOO) 

*sigx 

+  (fOl  - 

f 00 ) *sigy 

F2D  = 

END  IF 

RETURN 

END 

fll  -  (fll 

-  fOl) 

*(i  - 

sigx)  - 

(fll  -  flO)  * (1  -  sigy) 
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APPENDIX  C  SLINGTORQ.F 


Sling  Torque  data  from  the  Ames  mechanical  engineering  laboratory  test. 
Lookup  program  to  extract  required  data  follows  the  data.  Program  by  Ehlers  G. 


C  /GenHel/sl/sling_dat . f  Created  01  Sep  2001  by  George  E  Ehlers 
C  Data  for  sling  wind-up  yaw  resistance  obtained  from  laboratory 
tests 

subroutine  sling_dat 
include  'slvars.cmn' 
real  beta_cnx ( 110 ) ,  torq_cnx (110) 


C  Beta  values 


data  beta_cnx/ 


X 

0, 

0  . 

1020, 

0  . 

.2039, 

0  . 

.3059, 

0  . 

.4078, 

0  . 

.5098 

X 

o . 

.  6118, 

0  . 

7137, 

0  . 

.  8157, 

0  . 

.  9176, 

1 . 

.  0196, 

1 . 

.  1216 

X 

l . 

.2235, 

1 . 

3255, 

1  . 

.  4275, 

1 . 

.5294, 

1 . 

.  6314, 

1 . 

.  7333 

X 

i . 

.  8353, 

1 . 

9373, 

2  . 

.  0392, 

2  . 

.1412, 

2  . 

.2431, 

2  . 

.  3451 

X 

2  . 

.  4471, 

2  . 

5490, 

2  . 

.  6510, 

2  . 

.  7529, 

2  . 

.  8549, 

2  . 

.  9569 

X 

3. 

.  0588, 

3. 

1608, 

3  . 

.2627, 

3  . 

.3647, 

3. 

.4667, 

3.5686, 

X 

3. 

.  6706, 

3. 

7725, 

3  . 

.  8745, 

3. 

.  9765, 

4  . 

.  0784, 

4 

.  1804 

X 

4  . 

.2824, 

4  . 

3843, 

4  . 

.4863, 

4  . 

.5882, 

4  . 

.  6902, 

4 

.7922 

X 

4  . 

.8941, 

4  . 

9961, 

5. 

.0980, 

5. 

.2000, 

5. 

.2100, 

6 

.2204 

X 

7  . 

.2307, 

8  . 

2411, 

9. 

.2514, 

10  . 

.2618, 

11 . 

.2721, 

12 

.2825 

X 

13. 

.2928, 

14  . 

3032, 

15. 

.  3135, 

16. 

.  3239, 

17  . 

.  3342, 

18 

.3446 

X 

19. 

.  3549, 

20  . 

3653, 

21  . 

.  3756, 

22  . 

.3860, 

23. 

.  3963, 

24 

.4067 

X 

25. 

.4170, 

26. 

4274, 

27  . 

.4377, 

28  . 

.4481, 

29. 

.  4584, 

30 

.4688 

X 

31 . 

.4791, 

32  . 

4895, 

33  . 

.4998, 

34  . 

.5102, 

35. 

.5205, 

36 

.5309 

X 

37  . 

.  5412, 

38  . 

5516, 

39. 

.5619, 

40  . 

.5723, 

41  . 

.5826, 

42 

.5930 

X 

43. 

.  6033, 

44  . 

6137, 

45. 

.  6240, 

46  . 

.  6344, 

47  . 

.6447, 

48 

.  6551 

X 

49. 

.  6654, 

50  . 

6758, 

51  . 

.  6861, 

52  . 

.  6965, 

53. 

.  7068, 

54 

.  7172 

X 

55. 

.7275, 

56. 

7379, 

57  . 

.7482, 

58  . 

.  7586, 

59. 

.7689, 

60 

.  7793 

X 

61 . 

.7896, 

62  . 

8000/ 

C123456789C123456789C123456789C123456789C123456789C123456789C1234567891 

2 

C  Force  values 

data  torq_cnx/ 

x  0.5187,  0.9107,  0.6239,  1.0651,  2.0096, 

2.5485, 

x  2.0417,  2.0745,  3.5813,  9.0015,  16.1410, 

24 .8609, 
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x  34.9526, 

96.2232, 

46.1588, 

58 .1917, 

70 . 7486, 

83 . 5244 

x  108.5666, 
157 . 1724, 

120 . 3007, 

131.2011, 

141 . 0772, 

149 . 7737 

x  163.1922, 
172 . 1783, 

167.7876, 

170 .9482, 

172 . 6952, 

173 . 0795 

x  170.0910, 
146 . 4473, 

166.9360, 

162 . 8468, 

157 . 9675, 

152 .4495 

x  40.1151, 

108 .4663, 

133.6033, 

127 . 0553, 

120 . 6046, 

114 . 3726 

x  102.9770, 
83.7344, 

97 . 9784, 

93.5264, 

89.6585, 

86.3940 

x  81.6643, 

79.4923, 

80 . 1529, 

79.1556, 

78 . 6159, 

78.3361 

x  80.6913, 

87.3278, 

81 . 9331, 

83.2176, 

84.5449, 

85.9150 

x  88.7834, 

96.7029, 

90.2818, 

91 . 8229, 

93 .4068, 

95.0335 

x  98.4151, 

107 . 6177, 

100 . 1701, 

101 . 9679, 

103 . 8084, 

105.6917 

x  109.5865, 
120 . 0721, 

111 . 5981, 

113 . 6525, 

115.7496, 

117 . 8895 

x  122.2976, 
134 .066, 

124 . 5658, 

126.8767, 

129.2305, 

131 . 6270 

x  136.5483, 
149.6000, 

139.0731, 

141.6407, 

144 . 2510, 

146 . 9041 

x  152.3386, 
166.6734, 

155.1201, 

157 .9442, 

160.8112, 

163 . 7209 

x  169.6687, 
185.2865, 

172 .7067, 

175.7875, 

178 .9111, 

182 . 0774 

x  188.5384, 
205.4392, 

x  208.9477, 

191 . 8330, 

212 .4989/ 

195 . 1704, 

198.5506, 

201 . 9735 

c 

beta=abs  (ps2-psl) 

call  serchl (beta,  beta_cnx,  110,  ix,  sigx) 

kkl=-sign(l, (ps2-psl)) 
kk2=sigx* ( (torq_cnx (ix+1 ) - 
x  torq_cnx (ix) ) / (beta_cnx (ix+1) -beta_cnx (ix) ) ) 

Kps2=  -sign (1, (ps2-psl) ) * (torq_cnx (ix) +sigx* ( (torq_cnx (ix+1) - 
x  torq_cnx ( ix) ) 

RETURN 

END 


SUBROUTINE  SERCH1 (x,  tx,  nx,  ix,  sigx) 
DIMENSION  tx ( 1 ) 

xl  =  AMAX1 (tx (1) ,AMIN1 (x,tx (nx) ) ) 
i  =  1 

1  IF  (i  .EQ.  nx)  THEN 
ix  =  nx  -  1 
sigx  =  1 

ELSE  IF  (xl  .LT.  tx(i+l))  THEN 
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ix  = 
sigx  = 
ELSE 

i  =  i 
GO  TO 
END  IF 
RETURN 
END 


i 

(xl  -  tx (i) ) / (tx (i+1) -tx (i) ) 

+-  1 
1 
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APPENDIX  D  YAW  DOF  CORR  PLOTS 


Plots  of  yaw  rates  and  control  inputs  for  GenHel  /  Slung  Load  simulation  with 
correcting  equations.  Both  swivel  and  non-swivel  cases  are  plotted  for  validation. 
Plotted  are  flight  test  data  in  blue  versus  simulation  in  red.  Each  plot  window  has  four 
plots.  The  first  plot  is  yaw  rate  in  feet  per  second,  the  second  is  longitudinal  stick 
deflection  in  inches,  the  third  is  lateral  stick  deflection  in  inches  and  the  bottom  plot  is 
collective  deflection  in  inches.  Appendix  D  by  Ehlers,  G. 
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Yaw  Rate  and  Control  Input  Comparison 
Flight  172.17  Airspeed  20kts 


TIME. FLT (16: 41: 36. 2510)  TIME. SIM <00: 00: 00. 0200) 


TIME. FLT <16: 41: 36. 2510)  TIME. SIM <00: 00: 00. 0200) 


TIME. FLT <16: 41: 36. 2510)  TIME. SIM <00: 00: 00. 0200) 


DRL3S.FLT 
R2.SIM 


XAIN. FLT 
DA. SIM 


XBIN.FLT 
DB. SIM 


XCIN.FLT 
DC. SIM 


TIME. FLT <16: 41: 36. 2510)  TIME. SIM <00: 00: 00. 0200) 
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Yaw  Motions  and  Control  Input  Comparison 
Flight  172.19  Airspeed  42kts 


DRL3S.FLT 

R2.SIM 


0.0  20.0  40.0  60.0  80.0  100.0 

TIME. FLT <16: 46: 48. 4390)  TIME. SIM <00: 00: 00. 0200) 


5.200 
5.000 
4.800 
4.600 
4.400 

0.0  20.0  40.0  60.0  80.0  100.0 
TIME. FLT <16: 46: 48. 4390)  TIME. SIM <00: 00: 00. 0200) 


XAIN.FLT 
DA. SIM 


TIME. FLT <16: 46: 48. 4390)  TIME. SIM <00: 00: 00. 0200) 


XBIN.FLT 
DB. SIM 


TIME. FLT <16: 46: 48. 4390)  TIME. SIM <00: 00: 00. 0200) 


XCIN.FLT 
DC. SIM 
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Yaw  Motions  and  Control  Input  Comparison 
Flight  172.46  Airspeed  58kts 


TIME. FLT <17: 45: 59. 2700)  TIME. SIM <00: 00: 00. 0200) 


DRL3S.FLT 

R2.SIM 


XAIN.FLT 
DA. SIM 


o'o  50'.0  100.0 

TIME. FLT <17: 45: 59. 2700)  TIME. SIM <00: 00: 00. 0200) 


TIME. FLT <17: 45: 59. 2700)  TIME. SIM <00: 00: 00. 0200) 


XBIN.FLT 
DB. SIM 


6.000 

5.500 
5.000 

4.500 
4.000 

3.500 

0.0  50.0  100.0 

TIME. FLT <17: 45: 59. 2700)  TIME. SIM <00: 00: 00. 0200) 


XCIN.FLT 
DC. SIM 
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Yaw  Rate  and  Control  Input  Comparison 
Flight  169.16  Airspeed  35kts 


TIME. FLT <16: 03: 23. 0090)  TIME. SIM <00: 00: 00. 0200) 


TIME. FLT <16: 03: 23. 0090)  TIME. SIM <00: 00: 00. 0200) 


TIME. FLT <16: 03: 23. 0090)  TIME. SIM <00: 00: 00. 0200) 


TIME. FLT <16: 03: 23. 0090)  TIME. SIM <00: 00: 00. 0200) 
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APPENDIX  E  LOADSTAB.M 


Matlab  Program  to  check  force  and  moment  equations  for  an  airfoil  exposed  to  a 
relative  wind  from  any  angle.  Program  by  Ehlers,  G. 

%  Check  program  for  control  regime 

clear 

clc 

d2r=pi/180 ; 

%Flight  Constants 
Va=30 ; 

rho=. 0023768; 

%Stall  Transition  Region 
TH1=10 ; 

TH2=30 ; 

%Lift  and  Drag  Coefficients 
Cla= . l/d2r ; 

Cdo= . 02 ; 

Cdp= . 5 ; 

%Airfoil  Dimentions  entered  [Horz,Vert] 

Chord= [2,2] ; 

Span= [5,3] ; 

%Airfoil  location 
RH= [-5, 0,-4] ; 

RV= [-5, 0,-5. 5]  ; 


%Conversions 

THl=THl*d2r; 

TH2=TH2*d2r; 

V=-Va* 1 . 68781; 

%Plots  wanted  l=all,  2=airf oil-centered  axis,  3=load-centered  axis 
pi=i; 

n=51 ; 

alf=linspace (-90, 90, n) *d2r; 
bet =1 in space (-180, 180, n) *d2r; 

%Calculates  first  Horiz  Stab  then  Vert  Stab 
for  g  =  1:2 

Ch=Chord (g) ; 

S  =  Chord (g) *Span (g) ; 

AR=  Span (g) /Chord (g) ; 
e  =  .  9; 

for  i=l : length (alf) 

for  j=l : length (bet ) 

%Calculate  u,v,w  for  full  range  of  possibilities 
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if  g==l 

u  =  -V*cos (alf (i) ) *cos (bet ( j) )  ; 
v  =  V*sin (bet  (  j ) ) ; 
w  =  -V*sin (alf (i) ) *cos  (bet  ( j) ) ; 
else 

u  =  -V*cos (alf (i) ) *cos  (bet  ( j) ) ; 
v  =  -V*sin (alf (i) ) *cos  (bet  ( j) ) ; 
w  =  -V*sin (bet  (  j ) ) ; 

end 

%Calculate  Theta  and  Beta  for  Stab 
TH=atan2 (w , u) ; 

PS=atan2 (v, u) ; 

%Relative  Wind  perp  to  span 
Vxy  =  sqrt (uA2+vA2 ) ; 

Vxz  =  sqrt (uA2+wA2 )  ; 

Vyz  =  sqrt (vA2+wA2 )  ; 

%Calculations  for  forces  and  moments 
%Prestall  Region 

if  (abs(TH)  <=  TH1 )  &  (abs(PS)  <=  1.571) 

FI (i, j )  =  -rho/2*Vxy*u*S* (Cdo+ClaA2*THA2/ (pi*e*AR) )  ; 
F2(i,j)  =  -rho/2*Vyz*v*S*Cdo; 

F3  (i, j )  =  -rho/2*Vxz A2*S*Cla*TH; 

Ml (i, j)  =  0; 

M2  (i,  j)  =  -F3  (i,  j)  *  (Ch/4)  ; 

M3 (i, j)  =0; 

%Crossflow  Region 

elseif  (abs (TH)  >  TH2)  |  (abs(PS)  >  1.571) 

Fl(i,j)  =  -rho/2*Vxy*u*S*Cdo; 

F2(i,j)  =  -rho/2*Vyz*v*S*Cdo; 

F3(i,j)  =  -rho/2*Vxz*w*S* (Cdp*abs (sin  (TH) ) ) ; 

Ml (i, j)  =  0; 

M2  (i,  j)  =  0; 

M3  (i,  j)  =  0; 

%Stall  Transition  Region 
else 

u2  =  Vxz*cos (TH2) *sign (cos  (PS) ) ; 

Vxy2  =  sqrt (u2 A2+vA2 ) ; 

Flpl  =  -rho/2*Vxy*u*S* (Cdo+ClaA2*THl A2/ (pi*e*AR) ) ; 

F2pl  =  -rho/2*Vxy2*u2*S*Cdo; 

FI  (i, j )  =  Flpl+ (F2pl-Flpl) / (TH2-TH1) * (abs  (TH) -TH1) ; 

Ml (i, j)  =  0; 

F2(i,j)  =  -rho/2*Vyz*v*S*Cdo; 

M3  (i,  j)  =  0; 

w2  =  Vxz*sin (TH2) *sign (sin (TH) ) ; 

Vxz2  =  sqrt (uA2+w2 A2 )  ; 

Flp2  =  -rho/2*VxzA2*S* (Cla*THl*sign (TH) )  ; 

F2p2  =  - 

rho/2*Vxz2*w2*S* (Cdo*abs (cos (TH2) ) +Cdp*abs (sin (TH2) ) )  ; 

F3(i,j)  =  Flp2+ (F2p2-Flp2) / (TH2-TH1) * (abs (TH) -TH1) ; 

M2  (i, j )  =  -Flp2* (Ch/4)  +  (Flp2* (Ch/4) )/ (TH2-TH1) *  (abs  (TH) - 

TH1)  ; 

end 

end 
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end 


%Calculation  of  load  body  centered  forces  and  moments 
if  g==l ; 

%Horiz  Stab 
F1LH  =  FI; 

F2LH  =  F2 ; 

F3LH  =  F3 ; 

M1LH  =  -F2 . *RH (3) +F3 . *RH (2) ; 

M2LH  =  FI . *RH (3) -F3 . *RH (1) +M2; 

M3LH  =  -FI . *RH (2) +F2 . *RH  (1) ; 
else 

%Vertical  Stab 
F1LV  =  FI; 

F2LV  =  -F3 ; 

F3LV  =  F2 ; 

M1LV  =  F2 . *RV (2) +F3 . *RV (3) ; 

M2LV  =  F1.*RV(3)-F2.*RV(1); 

M3LV  =  -FI . *RV (2) -F3 . *RV (1) +M2 ; 

end 

end 

%Total  Forces  load  body  centered 
F1L  =  F1LH+F1LV ; 

F2L  =  F2LH+F2LV ; 

F3L  =  F3LH+F3LV ; 

MIL  =  M1LH+M1LV ; 

M2L  =  M2LH+M2LV; 

M3L  =  M3LH+M3LV; 

if  pl==l  |  pl==2 

%3-D  Graphs  for  forces 
figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r , FI ) 

title  ('Axial  Forces  body  centered  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r , F2 ) 

title  ('Lateral  Forces  body  centered  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r ,  F3 ) 

title  ('Vertical  Forces  body  centered  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 


%3-D  Graphs  for  moments 
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figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r , M2 ) 

title  ('Pitch  Moments,  body  centered  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

nn= [1,14,26,39,51]  ; 

ymin=min ( [min (min (FI ) ) , min (min (F2 ) )  ,  min (min (F3 ) ) ] )  ; 
ymax=max ( [max (max (FI ) ) , max (max (F2 ) ) , max (max (F3 ) ) ] ) ; 

for  ii=l : length (nn) 

%2-D  Graphs 

%Force  Plots 
figure 

subplot  (4,2,1),  plot (alf /d2r, FI ( :  ,  nn (ii)  )  ) 
title  (['Axial  Force  vs  Alpha,  Beta  = 

'  , num2str (bet (nn (ii) ) /d2r)  ]  ) 

axis ( [alf (1) /d2r,alf (n) /d2r, ymin, ymax] ) 
grid  on 

subplot  (4,2,3),  plot (alf /d2r, F2 (:, nn (ii) ) ) 
title  (['Lateral  Force  vs  Alpha,  Beta  = 

'  , num2str (bet (nn (ii) ) /d2r) ]  ) 

axis ( [alf (1) /d2r,alf (n) /d2r, ymin, ymax] ) 
ylabel  (  '  Force ' ) 
grid  on 

subplot  (4,2,5),  plot (alf /d2r, F3 (:, nn (ii) ) ) 
title  (['Normal  Force  vs  Alpha,  Beta  = 

'  , num2str (bet (nn (ii) ) /d2r) ] ) 

axis ( [alf (1) /d2r,alf (n) /d2r, ymin, ymax] ) 
grid  on 

subplot  (4,2,2),  plot (bet/d2r, FI (nn (ii) , : ) ) 

title  (['Axial  Force  vs  Beta,  Alpha=  ' , num2str (alf (nn (ii) ) /d2r) ] ) 
axis ( [bet ( 1 ) /d2r, bet (n) /d2r, ymin, ymax] ) 
grid  on 

subplot  (4,2,4),  plot (bet/d2r, F2 (nn (ii) , : ) ) 
title  (['Lateral  Force  vs  Beta,  Alpha= 

'  , num2str (alf (nn (ii) ) /d2r) ]  ) 
ylabel  (  ' Force ' ) 

axis  (  [bet ( 1 ) /d2r, bet (n) /d2r,  ymin,  ymax] ) 
grid  on 

subplot  (4,2,6),  plot (bet/d2r, F3 (nn (ii) , : ) ) 
title  (['Normal  Force  vs  Beta,  Alpha= 

'  , num2str (alf (nn (ii) ) /d2r)  ]  ) 

axis ( [bet ( 1 ) /d2r, bet (n) /d2r, ymin, ymax] ) 
grid  on 

%Moment  Plots 

subplot  (4,2,7),  plot (alf /d2r, M2 ( : , nn (ii) ) ) 
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title  (['Pitching  Moment  vs  Alpha,  Beta  = 

' , num2str (bet (nn (ii) ) /d2r) ] ) 

axis ( [alf (1) /d2r , alf (n) /d2r , min (min (M2 ) )  ,  max (max (M2 ) ) ] ) 
xlabel  ('Alpha') 
grid  on 

subplot  (4,2,8),  plot (bet/d2r, M2 ( : , nn (ii) ) ) 
title  (['Pitching  Moment  vs  Beta,  Alpha= 

' , num2str (alf (nn (ii) )/d2r) ] ) 

axis ( [bet ( 1 ) /d2r, bet (n) /d2r, min (min (M2 ) ) , max (max (M2 ) ) ] ) 
xlabel  ( ' Beta ' ) 
grid  on 
print 

end 

elseif  pl==l  |  pl==3 

%Graphs  for  Load  Body  Centered  Axis 

%Axial  Forces 
figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, F1LH) 

title  ('Axial  Forces  Horz  Stab,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r , F1LV) 

title  ('Axial  Forces  Vert  Stab,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, F1L) 

title  ('Total  Axial  Forces,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

%Lateral  Forces 
figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, F2LH) 

title  ('Lateral  Forces  Horz  Stab,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r , F2LV) 

title  ('Lateral  Forces  Vert  Stab,  Load-body  centerd  axis' 


ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, F2L) 

title  ('Total  Lateral  Forces,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

%Vertical  Forces 
figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, F3LH) 

title  ('Vertical  Forces  Horz  Stab,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r , F3LV) 

title  ('Vertical  Forces  Vert  Stab,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r,  F3L) 

title  ('Total  Vertical  Forces,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

%Roll  Moment 
figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, M1LH) 

title  ('Roll  Moment  Horz  Stab,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r , M1LV) 

title  ('Roll  Moment  Vert  Stab,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, MIL) 
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title  ('Total  Roll  Moment,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

%Pitch  Moment 
figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, M2LH) 

title  ('Pitch  Moment  Horz  Stab,  Load-body  centerd  axis 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r , M2LV) 

title  ('Pitch  Moment  Vert  Stab,  Load-body  centerd  axis' 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, M2L) 

title  ('Total  Pitch  Moment,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

%Yaw  Moment 
figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, M3LH) 

title  ('Yaw  Moment  Horz  Stab,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r , alf /d2r , M3LV) 

title  ('Yaw  Moment  Vert  Stab,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 

figure 

colormap ([0,0,0]) 

mesh  (bet/d2r, alf /d2r, M3L) 

title  ('Total  Yaw  Moment,  Load-body  centerd  axis') 
ylabel  ('Pitch  Angle') 
xlabel  ('Yaw  Angle') 
grid  on 


nn= [1, 14,26, 39, 51] ; 
for  ii=l : length (nn) 
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%2-D  Moment  Graphs  for  load-body  centered  axis 
figure 

subplot  (3,2,1),  plot (alf /d2r, M2L ( : , nn (ii) ) ) 
title  (['Pitch  Moment  vs  Alpha,  Beta  = 

' , num2str (bet (nn (ii) ) /d2r) ] ) 

axis ( [alf (1) /d2r, alf (n) /d2r,-100,  100]  ) 
grid  on 

subplot  (3,2,3),  plot (alf /d2r, MIL (:, nn (ii) ) ) 
title  (['Rolling  Moment  vs  Alpha,  Beta  = 

' , num2str (bet (nn (ii) ) /d2r) ] ) 

axis ( [alf (1) /d2r, alf (n) /d2r,-100,  100]  ) 
ylabel  ('Moment') 
grid  on 

subplot  (3,2,5),  plot (alf /d2r, M3L (:, nn (ii )) ) 

title  (['Yaw  Moment  vs  Alpha,  Beta  =  ' , num2str (bet (nn (ii) ) /d2r) ] ) 
axis ( [alf (1) /d2r,alf (n) /d2r,-100,  100]  ) 
xlabel  ('Alpha') 
grid  on 

subplot  (3,2,2),  plot (bet/d2r, M2L (nn (ii) , : ) ) 
title  (['Pitching  Moment  vs  Beta,  Alpha= 

' , num2str (alf (nn (ii) ) /d2r) ] ) 

axis ( [bet ( 1 ) /d2r , bet (n) /d2r,-100,  100]  ) 
grid  on 

subplot  (3,2,4),  plot (bet/d2r, MIL (nn (ii) ,:) ) 
title  (['Rolling  Moment  vs  Beta,  Alpha= 

' , num2str (alf (nn (ii) ) /d2r) ] ) 
ylabel  ('Moment') 

axis ( [bet ( 1 ) /d2r , bet (n) /d2r,-100,  100]  ) 
grid  on 

subplot  (3,2,6),  plot (bet/d2r, M3L (nn (ii) , : ) ) 

title  (['Yaw  Moment  vs  Beta,  Alpha=  ' , num2str (alf (nn (ii) ) /d2r) ] ) 
axis ( [bet ( 1 ) /d2r ,  bet (n) /d2r,-100,  100]  ) 
xlabel  (  ' Beta ' ) 
grid  on 

end 

end 
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APPENDIX  F  STABILIZER  FORCES  PLOTS 


Plots  of  forces  and  moments  for  an  stabilization  device  exposed  to  a  relative  wind 
from  any  angle.  Forces  are  in  lbsf,  moments  are  in  ft-lbs  and  angles  are  in  degrees. 
Appendix  F  by  Ehlers,  G. 
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Total  Vertical  Forces,  Load-body  centerd  axis 


Total  Roll  Moment,  Load-body  centerd  axis 


Moment  Moment 


Pitch  Moment  vs  Alpha,  Beta  =  -180 
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Pitching  Moment  vs  Beta,  Alpha=  -90 


Rolling  Moment  vs  Beta,  Alpha=  -90 


Pitching  Moment  vs  Beta,  Alpha=  -43.2 


Rolling  Moment  vs  Beta,  Alpha=  -43.2 
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Moment  Moment 


Pitch  Moment  vs  Alpha,  Beta  =  0 
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Pitching  Moment  vs  Beta,  Alpha=  0 
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Pitching  Moment  vs  Beta,  Alpha=  46.8 


Rolling  Moment  vs  Beta,  Alpha=  46.8 
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Pitch  Moment  vs  Alpha,  Beta  =180 


Pitching  Moment  vs  Beta,  Alpha=  90 


Rolling  Moment  vs  Alpha,  Beta  =180  Rolling  Moment  vs  Beta,  Alpha=  90 
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APPENDIX  G  LOADSTAB.F 


Stabilization  Module  for  GenHel  /  Slung  Load  simulation.  Program  by  Ehlers,  G. 

C  File  GenHel/batch/sl/loadstab  .  f . 05  June  01 

George  Ehlers 

C  Fin  tale  stabilizer  for  slung  loads 
SUBROUTINE  LOADSTAB 
INCLUDE  'slvars.cmn' 

REAL 

X  MACH,  M1H,  M2H,  M3H,  M1V,  M2V,  M3V,  MXF,  MYF,  MZF 

EQUIVALENCE  (OM22(l),  P2) 

EQUIVALENCE  (OM22(2),  Q2 ) 

EQUIVALENCE  (OM22(3),  R2 ) 

DATA  E,  PI/. 9,  3.1415927/ 


C  Calcualtion  of  stab  perameters 
AH  =  CH*SH 
AV  =  CV*SV 
ARH  =  SH/CH 
ARV  =  SV/CV 

C  Wind  Parameters,  UU,W,WW  used 
errors 


instead  of  U,V,W  to  prevent  naming 


UU  =  va2s2(l)  +  q2*rv(3)  -  r2*rv(2) 

W  =  va2s2(2)  +  r2*rv(l)  -  p2*rv(3) 

WW  =  va2s2(3)  t  p2*rv(2)  -  q2*rv(l) 

C  Relative  Wind  calculations 
Vxy  =  SQRT  (UU**2+W**2 ) 

Vxz  =  SQRT (UU**2+WW**2 ) 

Vyz  =  SQRT  (W**2+WW**2 ) 

C  Calculation  of  active  stab  gains 
IF  (ACTIVE  .NE.  1)  THEN 
DEFH  =  0 
DEFV  =  0 
ELSE 

DEFH  =  -GAINH*Q2 
IF  (DEFH  .GT.  .349)  THEN 
DEFH  =  - . 34  9*SIGN (Q2 ) 

ENDIF 

DEFV  =  -GAINV*R2 
IF  (DEFV  .GT.  .349)  THEN 
DEFV  =  - . 34  9*SIGN (R2 ) 

ENDIF 

ENDIF 
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C  Calculations  for  forces  and  moments 


C  Horizontal  Stab 

C  Calculation  of  angle  of  attack  and  yaw 
TH  =  atan2 (WW, UU) 

PS  =  atan2  (-W,  UU) 

C  Calculation  of  3D  lift  coeffic  and  conversions 
CLA  =  (CLAH*r2d) *ARH/ (2+sqrt (4+ARH**2) ) 

CLD  =  CLDH 
CDO  =  CDOH 
CDP  =  CDPH 
STAL1  =  STALH1/R2D 
STAL2  =  STALH2/R2D 

C  Prestall  Region 

IF  (ABS (TH)  .LE.  STAL1  .AND.  ABS(PS)  . LE .  1.571)  THEN 
F1H  =  -RH0/2 *Vxy*UU*AH* (Cdo+Cla**2*TH**2/ (PI*E*ARH) ) 
F2H  =  -RH0/2*Vyz*VV*AH*Cdo 
F3H  =  -RHO/ 2*Vxz**2*AH* (Cla*TH+Cld*DEFH) 

M1H  =  0 

M2H  =  F3H* (CH/4) 

M3H  =  0 

C  Crossflow  Region 

ELSEIF  (ABS (TH)  . GT .  STAL2  .OR.  ABS (PS)  . GT .  1.571) 

X  THEN 

F1H  =  -RHO/ 2*Vxy*UU*AH*Cdo 
F2H  =  -RHO/ 2*Vyz*VV*AH*Cdo 
F3H  =  -RHO/2*Vxz*WW*AH* (Cdp*ABS (SIN (TH) ) ) 

M1H  =  0 
M2H  =  0 
M3H  =  0 

C  Stall  Transition  Region 
ELSE 

UU2  =  Vxz*COS (STAL2) *SIGN (1, COS (PS) ) 

Vxy2  =  SQRT (UU2**2+VV**2 ) 

Flpl  =  -RHO/ 2*Vxy*UU*AH* (Cdo+Cla**2*STALl**2/ 

X  (PI *E*ARH) ) 

F2pl  =  -RHO/ 2*Vxy2*UU2*AH*Cdo 

F1H  =  Flpl+ (F2pl-Flpl) / (STAL2-STAL1 ) * (abs (TH) - 
X  STAL1 ) 

F2H  =  -RHO/ 2*Vyz*VV*AH*Cdo 

WW2  =  Vxz*SIN (STAL2) *SIGN (1, SIN (TH) ) 

Vxz2  =  SQRT (UU**2+WW2**2) 

Flp2  =  -RHO/ 2  *Vxz  *  *2  *AH* (Cla*STALl *  sign ( 1 , TH ) +Cld 
X  *DEFH) 

F2p2  =  -RHO/2*Vxz2*WW*AH* (Cdo*ABS (COS (STAL2) ) 

X  +Cdp*ABS (SIN (STAL2) ) ) 

F3H  =  Flp2+ (F2p2-Flp2) / (STAL2-STAL1 ) * (abs (TH) 

X  -STAL1 ) 

M1H  =  0 

M2H  =  Flp2* (CH/4) + (Flp2* (CH/4) )/ (STAL2-STAL1) 

X  * (ABS (TH) -STAL1) 

M3H  =  0 
ENDIF 
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C  Vertical  Stab 


C  Calculation  of  3D  lift  coeffic  and  conversions 
CLA  =  (CLAV*r2d) *ARV/ (2+sqrt (4+ARV**2) ) 

CLD  =  CLDV 
CDO  =  CDOV 
CDP  =  CDPV 
STAL1  =  STALV1/R2D 
STAL2  =  STALV2/R2D 

C  Transformation  of  wind  components  for  Vertical  Stab 
W2=W 
W=-WW 
WW=W2 

TH  =  ATAN2 (WW, UU) 

PS  =  ATAN2  (-W,UU) 

Vxy  =  SQRT (UU**2+VV**2 ) 

Vxz  =  SQRT (UU**2+WW**2 ) 

Vyz  =  SQRT  (W**2+WW**2 ) 

C  Prestall  Region 

IF  (ABS (TH)  .LE.  STAL1  .AND.  ABS(PS)  . LE .  1.571)  THEN 
F1V  =  -RH0/2 *Vxy*UU*AV* (CDO+Cla**2*TH**2/ (PI*E*ARV) ) 
F2V  =  -RHO/ 2  *Vyz  *VV*AV*CDO 
F3V  =  -RHO/ 2*Vxz**2*AV* (Cla*TH+Cld*DEFV) 

M1V  =  0 

M2V  =  F3V* (CV/4) 

M3V  =  0 

C  Crossflow  Region 

ELSEIF  (ABS (TH)  . GT .  STAL2  .OR.  ABS (PS)  . GT .  1.571) 

X  THEN 

F1V  =  -RHO/ 2  *Vxy*UU*AV*CDO 
F2V  =  -RHO/ 2*VYZ*VV*AV*CDO 
F3V  =  -RHO/2*Vxz*WW*AV* (Cdp*ABS (SIN (TH) ) ) 

M1V  =  0 
M2V  =  0 
M3V  =  0 

C  Stall  Transition  Region 
ELSE 

UU2  =  Vxz*COS (STAL2) *SIGN (1, COS (TH) ) 

Vxy2  =  SQRT (UU2**2+VV**2 ) 

Flpl  =  -RHO/ 2*Vxy*UU*AV* (CDOtCla**2*STALl**2/ 

X  (PI*E*ARV) ) 

F2pl  =  -RHO/ 2  *Vxy2  *UU2  *AV*CDO 

F1V  =  Flpl+ (F2pl-Flpl) / (STAL2-STAL1) * (abs (TH) - 
X  STAL1 ) 

F2V  =  -RHO/ 2  *Vy z  *VV*AV*CDO 

WW2  =  Vxz*SIN (STAL2) *SIGN (1, SIN (TH) ) 

Vxz2  =  SQRT (UU**2+WW2**2) 

Flp2  =  -RHO/ 2  *Vxz  *  *2  *AV* (Cla*STALl *  sign (1, TH) +Cld* 
X  DEFV) 

F2p2  =  -RHO/2*Vxz2*WW*AV* (CDO*ABS (COS (STAL2) ) 

X  +Cdp*ABS (SIN (STAL2) ) ) 

F3V  =  Flp2+ (F2p2-Flp2) / (STAL2-STAL1 ) * (abs (TH) - 
STAL1 ) 


X 
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M1V  =  0 

M2V  =  -Flp2* (CV/4 ) + (Flp2* (CV/4 ) ) / (STAL2-STAL1 ) 

X  * (ABS (TH) -STAL1) 

M3V  =  0 

ENDIF 

C  Calculations  of  forces  and  moments  from  stabs  in  load  body  centered 
axis 

FXF  =  F1H+F1V 

FYF  =  F2H-F3V 

FZF  =  F3H+F2V 

MXF  =  -F2H*RH (3) +F3H*RH (2)  -  F2V*RV ( 2 ) -F3V*RV ( 3 ) 

MYF  =  F1H*RH (3) -F3H*RH (1) +M2H  +  F1V*RV ( 3 ) +F2V*RV ( 1 ) 

MZF  =  -F1H*RH (2) +F2H*RH (1)  -  F1V*RV ( 2 ) +F3V*RV ( 1 ) -M2V 

FA22 ( 1 )  =  FA22 ( 1 )  +  FXF 

FA22 (2 )  =  FA22 (2 )  +  FYF 

FA22 ( 3 )  =  FA22 ( 3 )  +  FZF 

MA2  2(1)  =  MA2  2(1)  +  MXF 
MA2  2(2)  =  MA2  2(2)  +  MYF 
MA2  2(3)  =  MA2  2(3)  +  MZF 


RETURN 

END 
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APPENDIX  H  WIND  AXIS  STAB  FORCES 


Wind  Axis  forces  for  horizontal,  vertical  and  total  forces  produced  by  the 
stabilization  device.  Plotted  are  the  x,  y  and  z  forces  (FX,  FY,  FZ)in  lbsf  versus  yaw 
angle  in  degrees. 


Horizontal  Stabilizer  Forces  vs  Beta 
alpha  =0  airspeed=60  kts 


2.000- 


0.000- 


-2. 000- 


BETA 


-100.0 


0.0 


100.0 


F2H 
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Vertical  Stabilizer  Forces  vs  Beta 
alpha  =0  airspeed=60  kts 


FXV 


FYV 


F2V 
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Load  Body  Axis  Forces  vs  Beta 
alpha  =0  airspeed=60  kts 


50.00- 


0.00- 


-50. 00- 


BETA 


-100.0 


0.0 


FXF 


FYF 


F2F 


100.0 
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APPENDIX  I  LOADSTAB.DAT 


User  interface  for  load  stabilization  module  for  GenHel  /  Slung  Load  simulation. 
All  stabilization  parameters  are  entered  here  to  be  read  by  loadstab.f.  Program  by  Ehlers, 
G. 

C  File  GenHel/batch/loadstabil .  dat . 05  June  01 

George  Ehlers 

C  Data  input  file  for  fin  type  stabilizer  for  slung  loads 
C  To  be  read  by  ghsl_init.f 

C  ACTIVE  -  Passive  /  Active  stabilization  Flag  l=Active  0=Passive 


C 

stab 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


Stabilizer  Data,  Final  letter  designates  vertical  or  horizontal 

Gain  -  Active  feedback  gain 
C  -  Chord  Length 

S  -  Airfoil  Span 

CLA  -  2-D  Coefficent  of  lift  of  airfoil  section 

CLD  -  Coefficient  of  lift  due  to  control  deflection 

CDO  -  Zero  Lift  Coefficient  of  drag 
CDP  -  Profile  Drag  Coefficient 

STAL1-  Angle  of  Pitch  Where  Flow  Seperation  Begins  for  Horz  Stab 
STAL2-  Angle  of  Pitch  of  Complete  Airfoil  Stall  for  Horz  Stab 
R  -  X,  Y  and  Z  Distance  of  airfoil  center  to  load  CG 


&STABDAT 

ACTIVE  =  5 
GAINH  =  1 
CH  =2 
SH  =5 
CLAH  =  .  1 
CLDH  =  .  3 
CDOH  =  .02 
CDPH  =  .  8 
STALH1=  20 
STALH2=  45 
RH ( 1 )  =  -8 
RH ( 2 )  =  0 
RH ( 3 )  =  -6 

GAINV  =  1 
CV  =2 
SV  =4 
CLAV  =  .  1 
CLDV  =  .  3 
CDOV  =  .02 
CDPV  =  . 8 
STALV1=  20 
STALV2=  45 
RV  ( 1 )  =  -8 
RV ( 2 )  =  0 
RV ( 3 )  =  -8 
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&END 
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APPENDIX  J  GHSLMC.F 


Slung  Load  module  for  multicable  sling.  Correction  to  the  yaw  degree  of  freedom 
and  yaw  resistance  at  the  hook  were  make  in  this  module.  Program  by  Tyson,  P.  modified 
by  Ehlers,  G. 

C  file  GenHel/batch/sl/ghslmc . f ,  originally  slmc.f  .  started  1 

july  96 

C  single  lift,  multi-cable  suspension. 

C  modified  for  use  with  GENHEL  UH-60A  model 

C  mods  jun  00  ...  clean  out  auxilliary  varbs  computed  for  sldriver. 

Add  load  acclr  signals  amgs2 

C  Yaw  DOF  corrections  made  June  01  by  George  Ehlers 
SUBROUTINE  GHSLMC 
INCLUDE  'slvars.cmn' 

REAL  TIN (3,3),  TN1(3,3),  A22(3,3),  A23(3,3),  A22J1I(3,3), 

X  A23J2I (3,3),  RJR1 (3,3) ,  RJR2(3,3), 

X  TV12 ( 3 ) ,  TV22 ( 3 ) ,  TV2N(3),  TV3N(3),  TV4N(3),  TV5N(3), 

X  TV6N ( 3 ) ,  TV7N ( 3 ) ,  TV8N(3),  CA11(3),  DAU2N(3),  JOMll(3), 

X  JOM22 ( 3 ) ,  XI 1 ( 3 ) ,  X22 (3 ) ,  F01N(3),  F02N(3),  M011(3), 

X  M022 ( 3 ) ,  HTDIFO ( 3 ) ,  VSON(3),  V1SN(3),  V1S2SN(3),  C0R1N(3), 

X  COR2N ( 3 ) ,  DRA2SN ( 3 ) ,  RSON(3),  FC12(3), 

X  SF1N ( 3 ) ,  SF2N ( 3 ) ,  SM11(3),  SM22(3),  SUMM11(3),  SUMM22(3), 

X  DDRA2SN ( 3 ) ,  DV1S2SN(3),  DVSN(3),  ADU2N(3),  OSSFN(3), 

X  OISSFN ( 3 ) ,  T1T2 (3, 3) ,DYNAM, SWIRL,  RWIND  ,DELPS,  KR2 ,  KPS2 , 

X  KSWRL,  KDYN,  SLWND,  KPS,  YMHOOK,  K21(3) 

REAL 

X  II1XX,  II1YY,  II1ZZ,  II1XZ,  II2XX,  II2YY,  II2ZZ,  II2XZ, 

X  Ml,  M2,  MU12 ,  M1PM2 ,  M20M,  NQSL, 

X  ODU ( 12 ) ,  ODQ ( 12 ) ,  DLCJ(8),  RAJ2(3,8),  KCJ2(3,8), 

X  DELQIC  ( 12 ) ,  C  ( 4 ) , 

X  K2N ( 3 ) ,  KN2 ( 3 ) , 


RA2SN (3 

),  DV2S2 ( 3 ) 

,  DV2SS2 ( 

EQUIVALENCE 

(U  (1) 

V1SN(1)  ) 

EQUIVALENCE 

(Q  (6) 

PS1  ) 

EQUIVALENCE 

(TN2 (1,3)  , 

K2N  ( 1 )  ) 

EQUIVALENCE 

(T2N (1,3) , 

KN2  ( 1 )  ) 

EQUIVALENCE 

(OM22 (1) , 

P2 ) 

EQUIVALENCE 

(OM22 (2) , 

Q2 ) 

EQUIVALENCE 

(OM22 (3) , 

R2 ) 

EQUIVALENCE 

(DOM22 (1) , 

DP2 ) 

EQUIVALENCE 

(DOM22 (2) , 

DQ2) 

EQUIVALENCE 

(DOM22 (3) , 

DR2 ) 

C  COMPUTE  DEPENDENT  PARAMETERS  AND  LOAD-SUSPENSION 

C  POSITION  COORDINATES  FOR  STATIC  EQUILIBRIUM. 

C -  idle  mode  (not  used) 

IF  (IMODE.EQ.O)  RETURN 
DT02  =  . 5*DT 
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C -  initial  conditions 

C  current  helicopter  mass  and  inertia  from  STRIKE 


Ml 

=  Wl/G 

TMP 1 

=  I1XZ/ (I1XX*I1 

TMP2 

=  1  -  TMP 1 * I 1XZ 

II1XX 

=  1/ (I1XX*TMP2) 

II1XZ 

=  TMP 1/ TMP 2 

II1YY 

=  1/I1YY 

II1ZZ 

=  1/ ( 1 1 Z  Z  *  TMP  2 ) 

C  load  parameters 


M2 

=  W2/G 

TMP  1 

=  I2XZ/ ( I2XX*I2 

TMP  2 

=  1  -  TMP 1  * I2XZ 

II2XX 

=  1/ (I2XX*TMP2) 

II2XZ 

=  TMP 1/ TMP 2 

II2YY 

=  1/I2YY 

II2ZZ 

=  1/  ( 1 2  Z  Z  *  TMP  2  ) 

C  compute  derived  mass  parameters 
MU 12  =  1/Ml  +  1/M2 

M1PM2  =  Ml  +  M2 

M20M  =  M2/M1PM2 


C -  initial  conditions  (trim)  mode 

C  load-suspension  states,  add  load  yaw  initial  offset  for  yaw 
stability  tests 

IF  (IMODE.LT. 0)  THEN 
CALL  GHSLMC_IC 
PS2  =  PS2  +  DELPS20/R2D 

DO  10  I  =  7,12 

U ( I )  =0. 

10  DQ ( I )  =  0. 

OM22 ( 3 )  =  R20D/R2D 

DPS2  =  OM22 (3) *COS (PH2) /COS (TH2) 

C  NS  counts  records  stored 
NS  =0 

DT02  =  0. 


c 

magnetic  dip 

angle  at  moffett 

c 

DIP 

=  61 . 25/R2D 

c 

SDIP 

=  SIN (DIP ) 

c 

CDIP 

=  COS (DIP) 

END  IF 

q* ************  OPERATE  CODE  **************** 

C***  SEC  100:  read  in  HC  states  and  position  kinematics 
C  read  in  HC  states  from  STRIKE  to  q,  dq,  u,  TIN 


PHI 

=  A  (  4 

TH1 

=  A(  5 

PS1 

=  A(  6 

R1SN (1) 

=  A (106 

R1SN  (2) 

=  A (107 
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R1SN  (3) 

= 

-A (176) 

DO  102  I 

= 

1,3 

V1SN (I) 

= 

A ( 63  +  I) 

DQ  ( I ) 

= 

V1SN  (I) 

OM1 1  (I) 

= 

A (36  +  I) 

102  DQ  ( 3  +  1 ) 

= 

A(  6  +  I) 

DO  101  I 

= 

1,3 

DO  101  J 

= 

1,3 

TIN  (I,  J) 

= 

A ( 15+1+ (J-l) *3) 

101  TNI ( J, I ) 

= 

A ( 15+1+ (J-l) *3) 

C  position  kinematics 

SPH1 

= 

SIN (PHI) 

CPH1 

= 

COS (PHI) 

STH1 

= 

SIN (TH1 ) 

CTH1 

= 

COS (TH1 ) 

SPH2 

= 

SIN (PH2 ) 

CPH2 

= 

COS (PH2 ) 

STH2 

= 

SIN (TH2 ) 

CTH2 

= 

COS (TH2 ) 

SPS2 

= 

SIN (PS2 ) 

CPS2 

= 

COS (PS2 ) 

T2N (1, 1) 

= 

CPS2  *CTH2 

T2N (1, 2) 

= 

CTH2*SPS2 

T2N (1, 3) 

= 

-STH2 

T2N (2,1) 

= 

CPS2*SPH2*STH2-CPH2*SPS2 

T2N (2,2) 

= 

SPH2*SPS2*STH2+CPH2*CPS2 

T2N (2,3) 

= 

CTH2*SPH2 

T2N (3, 1) 

= 

CPH2*CPS2*STH2+SPH2*SPS2 

T2N (3, 2) 

= 

CPH2*SPS2*STH2-CPS2*SPH2 

T2N (3, 3) 

= 

CPH2  *CTH2 

TN2 (1,1) 

= 

T2N (1, 1) 

TN2  (1,2) 

= 

T2N (2,1) 

TN2 (1,3) 

= 

T2N (3, 1) 

TN2 (2,1) 

= 

T2N (1, 2) 

TN2 (2,2) 

= 

T2N (2,2) 

TN2 (2,3) 

= 

T2N (3, 2) 

TN2 (3, 1) 

= 

T2N (1, 3) 

TN2 (3,2) 

= 

T2N (2,3) 

TN2 (3,3) 

= 

T2N (3, 3) 

C***  SEC.  200. 

LOAD  AERODYNAMICS. 

C  load  air  velocity:  v2sn  =  vlsn  -  TN1*S (rlsal ) *omll  - 

TN2*S (ra2s2 ) *om22 

;  + 

C 

Tn2*dra2s2 

C 

or  v2sn  =  vlsn  +  A22*omll  +  A23*om22  +  dra2sn 

A22  (1,1) 

= 

TNI (1, 3) *R1SA1 (2)  -  TNI (1, 2) *R1SA1  (3) 

A22  (1,2) 

= 

TNI (1, 1) *R1SA1 (3)  -  R1SA1 (1) *TN1 (1, 3) 

A22  (1,3) 

= 

R1SA1 ( 1 ) *TN1 (1,2)  -  TNI (1, 1) *R1SA1 (2) 

A22  (2,1) 

= 

R1SA1 (2) *TN1 (2, 3)  -  TNI (2, 2) *R1SA1 (3) 

A22  (2,2) 

= 

TNI (2, 1) *R1SA1 (3)  -  R1SA1 (1) *TN1 (2, 3) 

A22  (2,3) 

= 

R1SA1 ( 1 ) *TN1 (2,2)  -  R1SA1 (2) *TN1 (2, 1) 

A22 (3, 1) 

= 

R1SA1 (2) *TN1 (3, 3)  -  R1SA1 (3 ) *TN1 (3, 2 ) 

A22 (3,2) 

= 

R1SA1 (3) *TN1 (3, 1)  -  R1SA1 ( 1 ) *TN1 (3,3) 

A22 (3,3) 

= 

R1SA1 ( 1 ) *TN1 (3,2)  -  R1SA1 (2) *TN1 (3, 1) 

A2  3  (1,1) 

= 

TN2 (1, 3) *RA2S2 (2)  -  TN2 (1,2) *RA2S2 ( 3 ) 
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A2  3  (1,2) 
A2  3  (1,3) 
A2  3  (2, 1) 
A2  3  (2, 2) 
A2  3  (2,3) 
A2  3  (3, 1) 
A2  3  (3,2) 
A2  3  (3,3) 
C0R1N (1) 
COR1N (2) 
COR1N (3) 
COR2N (1) 
COR2N (2) 
COR2N (3) 
DRA2SN ( 1 ) 

DRA2SN (2) 

DRA2SN (3) 

V1S2SN  ( 1 ) 
V1S2SN (2) 
V1S2SN (3) 
V2SN (1) 
V2SN (2) 
V2SN (3) 
VA2SN (1) 
VA2SN (2) 
VA2SN (3) 
VA2S2 (1) 
VA2S2 (2) 
VA2S2 (3) 


=  TN2 (1,1) *RA2S2 (3)  -  RA2S2 ( 1 ) *TN2 (1,3) 

=  RA2S2 ( 1 ) *TN2 (1,2)  -  TN2 (1,1) *RA2S2 (2) 

=  RA2S2 (2) *TN2 (2,3)  -  TN2 (2,2) *RA2S2 (3) 

=  TN2 (2, 1) *RA2S2 (3)  -  RA2S2 (1) *TN2  (2,3) 

=  RA2S2 (1) *TN2 (2,2)  -  RA2S2 (2) *TN2 (2,1) 

=  RA2S2 (2) *TN2 (3,3)  -  RA2S2 (3) *TN2 (3,2) 

=  RA2S2 (3) *TN2 (3, 1)  -  RA2S2 ( 1 ) *TN2 (3,3) 

=  RA2S2 (1) *TN2 (3,2)  -  RA2S2 (2) *TN2 (3,1) 

=  A22 (1, 3) *OMll (3) +A22 (1,2) *OMll (2) +OM11 (1) *A22 (1,1) 

=  A22 (2, 3) *OMll (3) +OM11 (2) *A22 (2, 2) +OM11 (1) *A22 (2,1) 

=  OM1 1 (3) *A22 (3, 3) +OM11 (2) *A22 (3, 2) +OM11 (1) *A22 (3,1) 

=  A23 (1, 3) *OM22 (3) +A23 (1,2) *OM22 (2) +OM22 (1) *A23 (1,1) 

=  A23 (2, 3) *OM22 (3) +OM22 (2) *A23 (2, 2) +OM22 (1) *A23 (2,1) 

=  OM22 (3) *A23 (3, 3) +OM22 (2) *A23 (3, 2) +OM22 (1) *A23 (3,1) 

=  TN2  (1, 3)  *DRA2S2  (3)  +TN2  (1, 2)  *DRA2S2  (2)  + 

DRA2S2 (1) *TN2 (1,1) 

=  TN2 (2, 3) *DRA2S2 (3) +DRA2S2 (2) *TN2 (2,2)+ 

DRA2S2 (1) *TN2 (2,1) 

=  DRA2S2 (3) *TN2 (3,3) +DRA2S2 (2) *TN2 (3,2)+ 

DRA2S2 (1) *TN2 (3,1) 

=  DRA2SN ( 1 )  +  COR2N ( 1 )  +  COR1N ( 1 ) 

=  DRA2SN (2 )  +  COR2N ( 2 )  +  C0R1N(2) 

=  DRA2SN ( 3 )  +  COR2N (3 )  +  C0R1N(3) 

=  V1SN(1)  +  V1S2SN ( 1 ) 

=  V1SN (2 )  +  V1S2SN (2 ) 

=  V1SN ( 3 )  +  V1S2SN (3 ) 

=  V2SN ( 1 )  -  WN(1) 

=  V2SN (2 )  -  WN(2) 

=  V2SN ( 3 )  -  WN ( 3 ) 

=  T2N  (1, 3)  *VA2SN  (3)  +T2N  (1, 2)  *VA2SN  (2)  +VA2SN  (1)  *T2N  (1,  1) 
=  T2N (2,3) *VA2SN (3) +VA2SN (2) *T2N (2, 2) +VA2SN (1) *T2N (2,1) 
=  VA2SN  (3)  *T2N (3, 3)  +VA2SN  (2)  *T2N (3, 2)  +VA2SN  (1)  *T2N (3,  1) 


c******  LOAD  AERODYNAMICS  **************** 

C  Load  aerodynamics:  option  IAERSL  =  0 :  no  aero,  1:  drag  only,  2: 
CONEX  aero 

DO  110  I  =  1,3 
FA22  (I)  =  0  . 

110  MA22 (I)  =  0 . 

IF  (IWAKE.EQ.l)  CALL  WAKE 
IF  ( IAERSL. EQ. 1)  THEN 

VA2  =  SQRT (VA2S2 (1) **2  +  VA2S2 (2) **2  +  VA2S2(3)**2) 

DOV  =  DOQ*RHO*VA2 / 2 . 

FA22 ( 1 )  =  -DOV*VA2S2 (1) 

FA22 (2 )  =  -DOV*VA2S2 (2) 

FA22 ( 3 )  =  -DOV*VA2S2 (3) 

ELSE  IF  ( IAERSL. EQ. 2)  THEN 
CALL  CONEXAERO 
ELSE  IF  ( IAERSL. EQ. 3)  THEN 
CALL  CONEX4 

VA2  =  SQRT (VA2S2 (1) **2  +  VA2S2(2)**2  +  VA2S2(3)**2) 

RWIND  =  5*ABS(R2) 

DYNAM  =  KDYN*SIGN (1, R2) * . 5*RHO*VA2* (VA2  -  RWIND) 

SWIRL  =  MAX(0,KSWRL* (1-VA2/33 . 756) ) 

MA22 (3)  =  MA22 (3)  +  DYNAM  +  SWIRL 
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ELSE  IF  (IAERSL.EQ. 4)  THEN 
CALL  C0NEX4A 

VA2  =  SQRT (VA2S2 (1) **2  +  VA2S2(2)**2  +  VA2S2(3)**2) 

RWIND  =  5*ABS(R2) 

DYNAM  =  KDYN*SIGN (1, R2) * . 5*RHO*VA2* (VA2  -  RWIND) 

SWIRL  =  MAX(0,KSWRL* (1-VA2/33 . 756) ) 

MA22 (3)  =  MA22 (3)  +  DYNAM  +  SWIRL 

END  IF 


C  Call  for  Load  Stabilization  Program 

IF  (STABSYST  . EQ .  1)  CALL  L0ADSTAB1 

C***  SEC  300.  fo  =  fg  +  fa  -  X  -  D  dA  u 


TV12  (1) 
TV12 (2) 
TV12 (3) 
TV22 (1) 
TV22 (2) 
TV22 (3) 
TV2N (1) 
TV2N (2) 
TV2N (3) 
CA1 1 (1) 

CA1 1 (2) 

CA1 1 (3) 

DAU2N ( 1 ) 

DAU2N (2) 

DAU2N (3) 

JOM11 (1) 
JOM11 (2) 
JOM11 (3) 
JOM22  (1) 
JOM22 (2) 
JOM22  (3) 
Xll  (1) 
Xll  (2) 
Xll  (3) 
X22  (1) 
X22  (2) 
X22 (3) 
FAIN  (1) 
FAIN (2) 
FAIN (3) 


=  OM22 (2) *RA2S2 (3)  -  RA2S2 (2) *OM22 (3)  +  2.*DRA2S2(1) 
=  -OM22 (1) *RA2S2 (3)  +  RA2S2 (1) *OM22 (3)  +  2.*DRA2S2(2) 
=  OM22 (1) *RA2S2 (2)  -  RA2S2 (1) *OM22 (2)  +  2.*DRA2S2(3) 
=  OM22 (2) *TV12  (3)  -  TV12 (2) *OM22 (3) 

=  -OM22 (1) *TV12 (3)  +  TV12 (1) *OM22 (3) 

=  OM22 (1) *TV12  (2)  -  TV12 (1) *OM22  (2) 

=  TN2 (1,3)  *TV22 (3) +TN2 (1,2) *TV22 (2) +TV22 (1) *TN2  (1,1) 

=  TN2 (2,3) *TV22 (3) +TV22 (2) *TN2 (2, 2) +TV22 (1) *TN2 (2,1) 

=  TV22 (3) *TN2 (3, 3) +TV22 (2) *TN2 (3, 2) +TV22 (1) *TN2 (3,1) 

=  OM11 (2) * (OM1 1 (1) *R1SA1 (2) -R1SA1 (1) *OMll (2) ) — 

OM1 1 (3) * (R1SA1 (1) *OMll (3) -OM11 (1) *R1SA1 (3) ) 

=  OM1 1 (3) * (OM1 1 (2) *R1SA1 (3) -R1SA1 (2) *OMll (3) ) — 

OM1 1 (1) * (OM1 1 (1) *R1SA1 (2) -R1SA1 (1) *OMll (2) ) 

=  OM11 (1) * (R1SA1 (1) *OMll (3) -OM11 (1) *R1SA1 (3) ) - 
OM1 1 (2) * (OM1 1 (2) *R1SA1 (3) -R1SA1 (2) *OMll (3) ) 

=  TNI (1,3) *CA1 1 (3) +TN1 (1,2) *CA11 (2) + 

CA1 1(1) *TN1 (1,1) +TV2N ( 1 ) 

=  TNI (2,3) *CA11 (3) +CA11 (2) *TN1 (2,2)+ 

CA1 1  (1)  *TN1  (2,  1)  +TV2N  (2) 

=  CA1 1 (3) *TN1 (3, 3) +CA11 (2) *TN1 (3,2)+ 

CA1 1(1) *TN1 (3,1) +TV2N ( 3 ) 

=  OM1 1(1)* I 1XX-OM1 1(3) *I1XZ 
=  OM1 1 (2) * I 1 YY 
=  OM11 (3) *I1ZZ— OM11 (1) *I1XZ 
=  OM22 (1) *I2XX-OM22 (3) *I2XZ 
=  OM22 (2) *I2YY 
=  OM22 (3) *I2ZZ-OM22 (1) *I2XZ 
=  OM11 (2) *JOMll (3)  -  JOM11 (2) *OMll (3) 

=  JOM11 (1) *OMll (3)  -  OM11 (1) *JOMll (3) 

=  OM11 (1) *JOMll (2)  -  JOM11 (1) *OMll (2) 

=  OM22 (2) *JOM22  (3)  -  JOM22 (2) *OM22  (3) 

=  JOM22 (1) *OM22 (3)  -  OM22 ( 1 ) * JOM22 ( 3 ) 

=  OM22 (1) *JOM22  (2)  -  JOM22 (1) *OM22  (2) 

=  TNI (1,3)  *FA11 (3) +TN1 (1,2) *FA11 (2) +FA11 (1) *TN1 (1,1) 

=  TNI (2,3) *FA11 (3) +FA11 (2) *TN1 (2, 2) +FA11 (1) *TN1 (2,1) 

=  FA1 1 (3) *TN1 (3, 3) +FA11 (2) *TN1 (3, 2) +FA11 (1) *TN1 (3,1) 


C  add  in  the  weight  of  the  rotor  system  to  the  total  aerodynamic 
C  force  on  the  system  because  GENHEL  treats  the  helo/rotor  as  two  a 
C  two  body  system,  but  the  ghslmc  logic  requires  entire  helo  as  one 
body 
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C  and  the  load  as  the  second. 

FAIN (3)  =  FAIN (3)  -  WBLADE*NBS 

FA11(1)  =  TIN (1, 3) *FA1N (3) +T1N (1, 2) *FA1N (2) +FA1N (1) *T1N (1, 1) 
FA1 1(2)  =  TIN (2, 3) *FA1N (3) +FA1N (2) *T1N (2, 2) +FA1N (1) *T1N (2, 1) 
FA1 1(3)  =  FAIN (3) *T1N (3, 3) +FA1N (2) *T1N (3, 2) +FA1N (1) *T1N (3, 1) 

FA2N  ( 1 )  =  TN2  (1, 3)  *FA22  (3) +TN2  (1, 2)  *FA22  (2) +FA22  (1)  *TN2  (1,  1) 
FA2N ( 2 )  =  TN2 (2, 3) *FA22 (3) +FA22 (2) *TN2 (2,2) +FA22 (1) *TN2 (2,1) 
FA2N ( 3 )  =  FA22 (3) *TN2 (3, 3) +FA22 (2) *TN2 (3,2) +FA22 (1) *TN2 (3,1) 
F01N(1)  =  FAIN ( 1 ) 

F01N ( 2 )  =  FAIN (2) 

FOIN ( 3 )  =  W1  +  FAIN (3) 

F02N ( 1 )  =  FA2N ( 1 )  -  M2*DAU2N(1) 

F02N ( 2 )  =  FA2N ( 2 )  -  M2*DAU2N(2) 

F02N ( 3 )  =  W2  +  FA2N ( 3 )  -  M2*DAU2N(3) 

MOll(l)  =  MAI 1 ( 1 )  -  Xll(l) 

MOl 1  ( 2 )  =  MAI 1 ( 2 )  -  Xll  (2 ) 

MOll  (3)  =  MA11 (3)  -  Xll  (3) 

M022  ( 1 )  =  MA2 2(1)  -  X22(l) 

M022 (2 )  =  MA2 2(2)  -  X22(2) 

M022 ( 3 )  =  MA2 2(3)  -  X22(3) 

C***  SEC  400:  SUSPENSION  FORCES  ON  HC  AND  LOAD  fc  =  H  fcln 

IF  (STRETCH. EQ. 0)  THEN 

C  inelastic  cable;  fcln  =  - [HT*DI*H] A-l*HT*DI*fo 

A22 J1 I ( 1 , 1 )  =  A22 (1, 3) *II1XZ+A22 (1,1) *II1XX 
A22 J1 I (1,2)  =  A22 (1, 2) *II1YY 
A22 J1 I ( 1 , 3 )  =  A22 (1, 3) *II1ZZ+A22 (1, 1) *II1XZ 
A22J1I (2,1)  =  A22 (2, 3) *II1XZ+A22 (2,1) *II1XX 
A22J1I (2,2)  =  A22 (2, 2) *II1YY 
A22 J1I (2,3)  =  A22 (2, 3) *II1ZZ+A22 (2, 1) *II1XZ 
A22J1I (3,1)  =  A22 (3, 3) *II1XZ+A22 (3,1) *II1XX 
A22J1I (3,2)  =  A22 (3, 2) *II1YY 
A22 J1I (3,3)  =  A22 (3, 3) *II1ZZ+A22 (3, 1) *II1XZ 
A23J2I (1,1)  =  A23 (1, 3) *II2XZ+A23 (1,1) *II2XX 
A23J2I (1,2)  =  A23 (1, 2) *II2YY 
A23J2I (1,3)  =  A23 (1, 3) *II2ZZ+A23 (1, 1) *II2XZ 
A23J2I (2,1)  =  A23 (2, 3) *II2XZ+A23 (2,1) *II2XX 
A23J2I (2,2)  =  A23 (2, 2) *II2YY 
A23J2I (2,3)  =  A23 (2, 3) *II2ZZ+A23 (2, 1) *II2XZ 
A23J2I (3,1)  =  A23 (3, 3) *II2XZ+A23 (3,1) *II2XX 
A23J2I (3,2)  =  A23 (3, 2) *II2YY 
A23J2I (3,3)  =  A23 (3, 3) *II2ZZ+A23 (3, 1) *II2XZ 
TV3N ( 1 )  =  A22J1I (1, 3) *M011 (3) +A22J1I (1, 2) *M011 (2) + 
x  MOll (1) *A22J1I (1, 1) 

TV3N (2 )  =  A22J1I (2, 3) *M011 (3) +M011 (2) *A22J1I (2, 2) + 
x  MOll (1) *A22J1I (2, 1) 

TV3N ( 3 )  =  MOll (3) *A22J1I (3, 3) +M011 (2) *A22J1I (3, 2) + 
x  MOll (1) *A22J1I (3, 1) 

TV4N ( 1 )  =  A23J2I (1, 3) *M022 (3) +A23J2I (1, 2) *M022 (2) + 
x  M022 (1) *A23J2I (1, 1) 

TV4N ( 2 )  =  A23J2I (2, 3) *M022 (3) +M022 (2) *A23J2I (2, 2) + 

x  M022 (1) *A23J2I (2, 1) 

TV4N ( 3 )  =  M022 (3) *A23J2I (3, 3) +M022 (2) *A23J2I (3, 2) + 

x  M022 ( 1 ) *A23 J2I (3,1) 
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HTDIFO ( 1 ) 

HTDIFO (2) 

HTDIFO (3) 

RJR1 (1,1) 
x 

RJR1 (1,2) 
x 

RJR1 (1,3) 
x 

RJR1 (2,2) 
x 

RJR1 (2,3) 
x 

RJR1 (3,3) 
x 

RJR2 (1,1) 
x 

RJR2 (1,2) 
x 

RJR2 (1,3) 
x 

RJR2 (2,2) 
x 

RJR2 (2,3) 
x 

RJR2 (3,3) 
x 


-F02N (1) /M2+F01N (1) /M1+TV4N (1) +TV3N (1) 
-F02N (2) /M2+F01N (2) /M1+TV4N (2) +TV3N (2) 
-F02N (3) /M2+F01N (3) /M1+TV4N (3) +TV3N (3) 

A22 (1, 3) *A22 J1I (1, 3) +A22 (1,2) *A22J1I (1,2)+ 
A22 (1,1) *A22 J1I (1,1) 

A22J1I (1,3) *A22 (2, 3) +A22J1I (1,2) *A22 (2,2)+ 
A22J1I (1, 1) *A22 (2,1) 

A22J1I (1,3) *A22 (3, 3) +A22J1I (1,2) *A22 (3,2)+ 
A22J1I (1, 1) *A22 (3,1) 

A22 (2, 3) *A22 J1I (2, 3) +A22 (2,2) *A22J1I (2,2)+ 
A22 (2,1) *A22 J1I (2,1) 

A22J1I (2, 3) *A22 (3, 3) +A22J1I (2,2) *A22 (3,2)+ 
A22J1I (2,1) *A22 (3,1) 

A22 (3, 3) *A22 J1I (3, 3) +A22 (3,2) *A22J1I (3,2)+ 
A22 (3,1) *A22 J1I (3,1) 

A23 (1, 3) *A23 J2I (1, 3) +A23 (1,2) *A23J2I (1,2)+ 
A23 (1,1) *A23 J2I (1, 1) 

A23J2I (1,3) *A23 (2, 3) +A23J2I (1,2) *A23 (2,2)+ 
A23J2I (1, 1) *A23 (2,1) 

A23J2I (1,3) *A23 (3, 3) +A23J2I (1,2) *A23 (3,2)+ 
A23J2I (1,1) *A23 (3,1) 

A23 (2, 3) *A23 J2I (2, 3) +A23 (2,2) *A23J2I (2,2)+ 
A23 (2,1) *A23 J2I (2,1) 

A23J2I (2,3) *A23 (3, 3) +A23J2I (2,2) *A23 (3,2)+ 
A23J2I (2,1) *A23 (3,1) 

A23 (3, 3) *A23 J2I (3, 3) +A23 (3,2) *A23J2I (3,2)+ 
A23 (3, 1) *A23 J2I (3,1) 


C  upper  triangle  elements  of  symmetric  HTDIH 

511  =  MU12+RJR2 (1,1) +RJR1 (1,1) 

512  =  RJR2  (1, 2) +RJR1  (1, 2) 

513  =  RJR2  (1, 3)  +RJR1  (1, 3) 

522  =  MU12+RJR2 (2,2) +RJR1 (2,2) 

523  =  RJR2  (2, 3) +RJR1  (2, 3) 

S33  =  MU12+RJR2 (3,3) +RJR1 (3,3) 


C  upper  triangle  elements  of  symmetric  HTDIH^-1 
CF1 1  =  S22*S33  -  S23*S23 
CF12  =  S12*S33  -  S13*S23 
CF13  =  S12*S23  -  S13*S22 
CF22  =  S11*S33  -  S13*S13 
CF23  =  S23*S11  -  S12*S13 
CF33  =  S11*S22  -  S12*S12 
DET  =  S11*CF11  -  S12*CF12  +  S13*CF13 

5111  =  CF11/DET 

5112  =  -CF12/DET 

5113  =  CF13/DET 

5122  =  CF22/DET 

5123  =  -CF23/DET 
SI33  =  CF33/DET 


cable  force  on  helicopter,  inertial  axes  components 

FC1N(1)  =  -HTDIFO (3) *SI13-HTDIFO (2) *SI12-HTDIFO (1) *SI11 
FC1N ( 2 )  =  -HTDIFO (3) *SI23-HTDIFO (2) *SI22-HTDIFO (1) *SI12 
FC1N ( 3 )  =  -HTDIFO (3) *SI33-HTDIFO (2) *SI23-HTDIFO (1) *SI13 


ELSE 
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C  elastic  cables:  fcl2 


1, . . . , nc) 


=  sum (tau j*kc j2,  j  = 


FC12  (1)  =  0  . 
FC12  (2)  =  0 . 
FC12  (3)  =  0  . 


X 


300 


DO  300  J 
RAJ2 (1, J) 
RAJ2 (2, J) 
RAJ2 (3, J) 
LCJ ( J) 
KCJ2 (1, J) 
KCJ2 (2, J) 
KCJ2 (3, J) 
DLCJ ( J) 

TAUJ ( J) 
FC12  (1) 
FC12  (2) 
FC12  (3) 
CONTINUE 


=  1 ,  NC 

=  RA2S2 ( 1 )  +  R2S J2 ( 1 , J) 

=  RA2S2 (2 )  +  R2SJ2 (2, J) 

=  RA2S2  (3)  +  R2S J2  ( 3 ,  J) 

=  SQRT (RAJ2 (3, J) **2+RAJ2 (2, J) **2+RAJ2 (1, J) **2) 
=  RAJ2 (1, J) /LCJ ( J) 

=  RAJ2 (2, J) /LCJ ( J) 

=  RAJ2 (3, J) /LCJ ( J) 

=  DRA2S2 (3) *KCJ2 (3, J) +DRA2S2 (2) *KCJ2 (2, J) 
+DRA2S2 (1) *KCJ2 (1, J) 

=  AMAX1 (0 . , KS* (LCJ ( J)  -  LCJO(J))  +  CS*DLCJ(J)) 
=  FC12  ( 1 )  +  KCJ2 (1, J) *TAUJ ( J) 

=  FC12  (2 )  +  KCJ2 (2, J) *TAUJ ( J) 

=  FC12  ( 3 )  +  KCJ2 (3, J) *TAUJ ( J) 


FC1N(1)  =  TN2 (1, 3) *FC12 (3) +TN2 (1, 2) *FC12 (2) +FC12 (1) *TN2 (1,1) 
FC1N ( 2 )  =  TN2 (2, 3) *FC12 (3) +FC12 (2) *TN2 (2, 2) +FC12 (1) *TN2 (2,1) 
FC1N ( 3 )  =  FC12 (3) *TN2 (3, 3) +FC12 (2) *TN2 (3, 2) +FC12  (1) *TN2  (3, 1) 


ENDIF 


C  in  sim  IC  use  susp  force  result  from  load-susp  IC  logic 
IF  (IMODE.LT. 0)  THEN 

FC1N(1)  =  -TN2 (1, 3) *FC22 (3) -TN2 (1, 2) *FC22 (2) -FC22 ( 1 ) *TN2  (1,1) 
FC1N (2 )  =  -TN2 (2, 3) *FC22 (3) -FC22 (2) *TN2 (2, 2) -FC22 (1) *TN2 (2, 1) 
FC1N ( 3 )  =  -FC22 (3) *TN2 (3, 3) -FC22 (2) *TN2 (3, 2) -FC22 (1) *TN2 (3, 1) 
END  IF 


C  suspension  forces  and  eg  moments  on  the  HC  and  load 


FC2N  ( 1 ) 
FC2N (2) 
FC2N (3) 
MCI 1  (1) 
MCI 1  (2) 
MCI 1 (3) 
MC22  (1) 
MC22  (2) 
MC22  (3) 


-FC1N (1) 

-FC1N  (2) 

-FC1N (3) 

FC1N (3) *A22 (3, 1) +FC1N (2) *A22 (2, 1) +FC1N  (1) 
FC1N (3) *A22 (3, 2) +FC1N (2) *A22 (2, 2) +FC1N (1) 
FC1N (3) *A22 (3, 3) +FC1N (2) *A22 (2, 3) +FC1N (1) 
FC1N (3) *A23 (3, 1) +FC1N (2) *A23 (2, 1) +FC1N (1) 
FC1N (3) *A23 (3, 2) +FC1N (2) *A23 (2, 2) +FC1N (1) 
FC1N (3) *A23 (3, 3) +FC1N (2) *A23 (2, 3) +FC1N (1) 


*A22 (1,1) 
*A22 (1,2) 
*A22 (1,3) 
*A23 (1,1) 
*A23 (1,2) 
*A23 (1,3) 


C  Addition  of  yaw  resistence  torque  at  the  hook 
DELPS  =  PS2  -  PS1 

SLWND  =  . 98*  (1  -  6.283/ (5*ABS (DELPS)  +  .017)) 

CALL  SLINGTORQ 

YMHOOK  =  — KR2*R2  -  KPS 

MC22 (3)  =  MC22 (3)  +  YMHOOK 

K2 1  ( 1 )  =  TIN (1,3) *K2N (3 ) +T1N (1,2) *K2N (2 ) +K2N (1 ) *T1N (1,1) 
K2 1  ( 2 )  =  TIN (2,3) *K2N (3 ) +K2N (2 ) *T1N (2,2) +K2N (1 ) *T1N (2,1) 
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K21  (3)  =  K2N (3) *T1N (3,3) +K2N (2) *T1N (3,2) +K2N (1) *T1N (3, 1) 

MC11(1)  =  MC11(1)  -  YMH00K*K21 (1) 

MC11 (2)  =  MC11 (2)  -  YMH00K*K21 (2) 

MC11 (3)  =  MC11 (3)  -  YMH00K*K21 (3) 


C***  SEC  500:  ACCELERATIONS.  du  =  AA-1  DA-1  (fo  +  fc)  =  AA-1  sf 

SF1N(1)  =  (F01N(1)  +  FC1N ( 1 ) ) /Ml 

SF1N (2 )  =  (F01N (2 )  +  FC1N(2))/M1 

SF1N ( 3 )  =  (F01N (3)  +  FC1N(3))/M1 

SF2N ( 1 )  =  (F02N ( 1 )  +  FC2N(1))/M2 

SF2N ( 2 )  =  (F02N  (2 )  +  FC2N(2))/M2 

SF2N ( 3 )  =  (F02N ( 3 )  +  FC2N(3))/M2 

SUMM1 1(1)  =  MOll(l)  +  MCI 1 ( 1 ) 

SUMM1 1(2)  =  MOl 1(2)  +  MCI 1 ( 2 ) 

SUMM11 (3)  =  MOll (3)  +  MCI 1 ( 3 ) 

SUMM22 ( 1 )  =  M022 ( 1 )  +  MC22(1) 

SUMM22 (2 )  =  M022 (2 )  +  MC22(2) 

SUMM22 ( 3 )  =  M022 ( 3 )  +  MC22(3) 

SMI 1 ( 1 )  =  SUMM11 (3) *II1XZ  +  SUMM11 (1) *II1XX 

SMI 1 ( 2 )  =  SUMM11 (2) *II1YY 

SMI 1 ( 3 )  =  SUMM1 1 (3) *II1ZZ  +  SUMM1 1 ( 1 ) * I I 1XZ 

SM22 ( 1 )  =  SUMM22 (3) *II2XZ  +  SUMM22 (1) *II2XX 

SM22 (2 )  =  SUMM22 (2) *II2YY 

SM22 ( 3 )  =  SUMM22 (3) *II2ZZ  +  SUMM22 (1) *II2XZ 

DV1SN(1)  =  SF1N(1) 

DV1SN (2 )  =  SF1N  (2 ) 

DV1SN ( 3 )  =  SF1N ( 3 ) 

DOM11 (1)  =  SMI 1 (1) 

DOM11 (2)  =  SMI 1 (2) 

DOM11 (3)  =  SMI 1 (3) 

DOM22  (1)  =  SM22 (1) 

DOM22 (2)  =  SM22 (2) 

DOM22  (3)  =  SM22 (3) 

TV5N ( 1 )  =  A22 (1, 3) *SM11 (3) +A22 (1,2) *SM11 (2) +SM11  (1) *A22  (1,1) 

TV5N ( 2 )  =  A22 (2, 3) *SM11 (3) +SM11 (2) *A22 (2,2) +SM11 (1) *A22 (2,1) 

TV5N ( 3 )  =  SMI 1(3) *A22 (3,3) +SM1 1(2) *A22 (3,2) +SM1 1(1) *A22 (3,1) 

TV6N ( 1 )  =  A23 (1, 3) *SM22 (3) +A23 (1,2) *SM22 (2) +SM22 (1) *A2  3 (1,1) 

TV6N (2 )  =  A23 (2, 3) *SM22 (3) +SM22 (2) *A23 (2,2) +SM22 (1) *A2  3 (2,1) 

TV6N ( 3 )  =  SM22 (3) *A23 (3,3) +SM22 (2) *A23 (3,2) +SM22 (1) *A23 (3,1) 

DDRA2SN ( 1 )  =  SF2N ( 1 )  -  TV6N(1)  -  TV5N(1)  -  SF1N(1) 

DDRA2SN (2 )  =  SF2N(2)  -  TV6N(2)  -  TV5N(2)  -  SF1N(2) 

DDRA2SN ( 3 )  =  SF2N(3)  -  TV6N(3)  -  TV5N(3)  -  SF1N(3) 

DDRA2S2 ( 1 )  =  T2N (1, 3) *DDRA2SN (3) +T2N (1, 2) *DDRA2SN (2)  + 
x  DDRA2SN ( 1 ) *T2N ( 1 , 1 ) 

DDRA2S2 (2 )  =  T2N (2, 3) *DDRA2SN (3) +DDRA2SN  (2) *T2N  (2, 2)  + 
x  DDRA2SN (1) *T2N (2, 1) 

DDRA2S2 ( 3 )  =  DDRA2SN (3) *T2N (3,3) +DDRA2SN (2) *T2N (3,2)+ 
x  DDRA2SN (1) *T2N (3, 1) 

C***  SEC  600.  system  eg  errors,  initialize  integrators 

R1S2SN  ( 1 )  =  TN2  (1, 3)  *RA2S2  (3) +TN1  (1, 3)  *R1SA1  (3)  + 
x  TN2 (1,2) *RA2S2 (2) +TN1 (1,2) *R1SA1 (2) + 

RA2S2 (1) *TN2 (1, 1) +R1SA1 (1) *TN1 (1,1) 
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X 


X 

X 


X 

X 


R1S2SN  (2 )  =  TN2  (2, 3)  *RA2S2  (3)  +TN1  (2, 3)  *R1SA1  (3)  + 

RA2S2 (2) *TN2 (2,2) +R1SA1 (2) *TN1 (2,2)+ 

RA2S2  (1)  *TN2  (2,  1)  +R1SA1  (1)  *TN1  (2,  1) 

R1S2SN  ( 3 )  =  RA2S2  (3)  *TN2  (3, 3) +R1SA1  (3)  *TN1  (3, 3)  + 

RA2S2 (2) *TN2 (3, 2) +R1SA1 (2) *TN1 (3,2)+ 

RA2S2 (1) *TN2 (3, 1) +R1SA1 (1) *TN1  (3,1) 

RSN(l)  =  R1S2SN (1) *M20M  +  R1SN(1) 

RSN ( 2 )  =  R1S2SN (2) *M20M  +  R1SN(2) 

RSN ( 3 )  =  R1S2SN (3) *M20M  +  R1SN(3) 

VSN(l)  =  V1S2SN (1) *M20M  +  V1SN(1) 

VSN ( 2 )  =  V1S2SN (2) *M20M  +  V1SN(2) 

VSN ( 3 )  =  V1S2SN (3) *M20M  +  V1SN(3) 

TV7N ( 1 )  =  A22 (1, 3) *D0M11 (3) +A22 (1, 2) *D0M11 (2) +D0M11 (1) *A22 
TV7N ( 2 )  =  A22 (2, 3) *D0M11 (3) +D0M11 (2) *A22 (2,2) +D0M11 (1) *A22 
TV7N ( 3 )  =  D0M1 1(3) *A22 (3,3) +DOM1 1(2) *A22 (3,2) +DOM1 1(1) *A22 
TV8N ( 1 )  =  A23 (1, 3) *DOM22 (3) +A23 (1, 2) *DOM22 (2) +DOM22  (1) *A23 
TV8N (2 )  =  A23 (2, 3) *DOM22 (3) +DOM22 (2) *A23 (2, 2) +DOM22 (1) *A23 
TV8N  ( 3 )  =  DOM22  (3)  *A23  (3, 3)  +DOM22  (2)  *A23  (3,  2)  +DOM22  (1)  *A23 
ADU2N ( 1 )  =  TV8N ( 1 )  +  TV7N(1)  +  DDRA2SN ( 1 ) 

ADU2N ( 2 )  =  TV8N (2 )  +  TV7N(2)  +  DDRA2SN (2 ) 

ADU2N ( 3 )  =  TV8N ( 3 )  +  TV7N(3)  +  DDRA2SN ( 3 ) 

DV1S2SN ( 1 )  =  DAU2N ( 1 )  +  ADU2N(1) 

DV1S2SN (2 )  =  DAU2N ( 2 )  +  ADU2N(2) 

DV1S2SN ( 3 )  =  DAU2N (3)  +  ADU2N(3) 

DVSN(l)  =  DV1S2SN (1) *M20M  +  DV1SN(1) 

DVSN ( 2 )  =  DV1S2SN (2) *M20M  +  DV1SN(2) 

DVSN ( 3 )  =  DV1S2SN (3) *M20M  +  DV1SN(3) 

SSFN(l)  =  (FA2N ( 1 )  +  FAIN ( 1 ) ) /M1PM2 
SSFN ( 2 )  =  (FA2N (2 )  +  FAIN ( 2 ) ) /M1PM2 
SSFN ( 3 )  =  (FA2N ( 3 )  +  FAIN (3 ) ) /M1PM2  +  G 


(1,  1) 
(2,1) 

(3.1) 
(1,  1) 

(2.1) 
(3,1) 


C  save  initial  c.g. 

IF  (T.LE.DT02) 
DO  600  I  = 
RSON  (I) 

VSON  (I) 
ISSFN  (I) 
IISSFN (I) 
OSSFN (I) 
OISSFN  (I) 

DQ  ( I ) 

600  DQ ( 9+1 ) 


states  and 
THEN 
1,3 

=  RSN (I) 

=  VSN (I) 

=  0. 

=  0. 

=  SSFN  ( I ) 

=  0. 

=  V1SN(I) 

=  DRA2S2 (I) 


initialize 


integrations 


DPS1 

DPH1 

DTH1 

DPS2 

DPH2 

DTH2 


(OM11 (2) *SPH1  +  OM11 (3) *CPH1) /CTH1 
OM1 1 (1)  +  DPS1*STH1 

OM1 1 ( 2 ) *CPH1  -  OM1 1(3) *SPH1 
(OM22 (2) *SPH2  +  OM22 (3) *CPH2) /CTH2 
OM22 (1)  +  DPS2*STH2 
OM22 (2 ) *CPH2  -  OM22(3)*SPH2 


DO  601  I  =  1,12 
ODU(I)  =  DU (I) 

601  ODQ(I)  =  DQ ( I ) 


END  IF 


C  eg  errors  and  integrate  SSFN  for  eg  errors 
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DELDVSN ( 1 )  =  DVSN(l)  -  SSFN(l) 

DELDVSN (2 )  =  DVSN(2)  -  SSFN(2) 

DELDVSN (3)  =  DVSN(3)  -  SSFN(3) 

DELVSN ( 1 )  =  VSN(l)  -  ISSFN(l)  -  VSON(l) 

DELVSN ( 2 )  =  VSN ( 2 )  -  ISSFN(2)  -  VSON(2) 

DELVSN (3)  =  VSN (3)  -  ISSFN(3)  -  VSON(3) 

DELRSN ( 1 )  =  RSN(l)  -  VSON(l)*T  -  RSON(l)  -  IISSFN(l) 

DELRSN (2 )  =  RSN ( 2 )  -  VSON(2)*T  -  RSON(2)  -  IISSFN(2) 

DELRSN (3)  =  RSN (3)  -  VSON(3)*T  -  RSON(3)  -  IISSFN(3) 

DO  603  I  =  1,3 

ISSFN(I)  =  ( 3*SSFN ( I )  -  OSSFN  ( I )  ) *DT02  +  ISSFN(I) 

IISSFN(I)  =  (OISSFN ( I )  +  ISSFN (I) ) *DT02  +  IISSFN(I) 

OSSFN (I)  =  SSFN(I) 

603  OISSFN ( I )  =  ISSFN  ( I ) 

C ***  SEC  700.  transfer  data  to  calling  program  and  data  storage 


FC11  ( 1 )  =  TIN (1, 3) *FC1N (3) +T1N (1, 2) *FC1N (2) +FC1N (1) *T1N (1, 1) 

FC11  ( 2 )  =  TIN (2, 3) *FC1N (3) +FC1N (2) *T1N (2, 2) +FC1N (1) *T1N (2, 1) 

FC11  (3)  =  FC1N  (3)  *T1N  (3, 3)  +FC1N  (2)  *T1N  (3, 2)  +FC1N  (1)  *T1N  (3,  1) 
SLINGTENSION  =  SQRT (FC1N (1) **2  +  FC1N(2)**2  +  FC1N(3)**2) 

C***  Remainder  of  this  section  generates  auxilliary  variables. 

DV1S1 (1)  =  TIN (1, 3) *DV1SN (3) +T1N (1, 2) *DV1SN (2) +DV1SN (1) *T1N (1, 1) 
DV1S1 (2)  =  TIN (2, 3) *DV1SN (3) +DV1SN (2) *T1N (2, 2) +DV1SN (1) *T1N (2,1) 
DV1S1 (3)  =  DV1SN (3) *T1N (3, 3) +DV1SN (2) *T1N (3, 2) +DV1SN (1) *T1N (3, 1) 

FC22  ( 1 )  =  T2N (1, 3) *FC2N (3) +T2N (1, 2) *FC2N (2) +FC2N (1) *T2N (1, 1) 

FC22  (2 )  =  T2N (2, 3) *FC2N (3) +FC2N (2) *T2N (2, 2) +FC2N (1) *T2N (2, 1) 

FC22  ( 3 )  =  FC2N  (3)  *T2N  (3, 3)  +FC2N  (2)  *T2N  (3, 2)  +FC2N  (1)  *T2N  (3,  1) 

C  hook-to-load-cg  vector 

RA2SN  ( 1 )  =  TN2  (1, 3)  *RA2S2  (3)  +TN2  (1,2)  *RA2S2  (2)  + 

x  RA2S2  (1)  *TN2  (1,  1) 

RA2SN (2 )  =  TN2 (2, 3) *RA2S2 (3) +RA2S2 (2) *TN2 (2,2)+ 

x  RA2S2 (1) *TN2 (2,1) 

RA2SN ( 3 )  =  RA2S2 (3) *TN2 (3,3) +RA2S2 (2) *TN2 (3,2)+ 

x  RA2S2 ( 1 ) *TN2 (3,1) 

RA2 S 1  ( 1 )  =  TIN  (1, 3)  *RA2SN  (3) +T1N  (1, 2)  *RA2SN  (2)  + 
x  RA2SN ( 1 ) *T1N ( 1 , 1 ) 

RA2  S 1  ( 2  )  =  TIN  (2, 3)  *RA2SN  (3)  +RA2SN  (2)  *T1N  (2, 2)  + 

x  RA2SN (1) *T1N (2, 1) 

RA2  S 1 ( 3 )  =  RA2SN (3) *T1N (3, 3) +RA2SN (2)*T1N(3,2)  + 
x  RA2SN (1) *T1N  (3, 1) 

C  load  inertial  position  (for  possible  2D,  3D  trajectory  plots) 

R2SN ( 1 )  =  R1SN(1)  +  R1S2SN ( 1 ) 

R2SN (2 )  =  R1SN (2 )  +  R1S2SN(2) 

R2SN ( 3 )  =  R1SN ( 3 )  +  R1S2SN(3) 

C  load  acceleration,  body  axes  components 
DV2SN ( 1 )  =  DV1SN(1)  +  DV1S2SN(1) 

DV2SN (2 )  =  DV1SN (2 )  +  DV1S2SN(2) 

DV2SN ( 3 )  =  DV1SN ( 3 )  +  DV1S2SN(3) 
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DV2S2 (1) 


x 

DV2S2 (2) 
x 

DV2S2 (3) 
x 


T2N  (1, 3)  *DV2SN (3)  +T2N  (1, 2)  *DV2SN  (2)  + 
DV2SN (1) *T2N (1, 1) 

T2N (2,3) *DV2SN (3) +DV2SN (2) *T2N (2,2)+ 
DV2SN (1) *T2N (2,1) 

DV2SN (3) *T2N (3, 3) +DV2SN (2) *T2N (3, 2) + 
DV2SN (1) *T2N (3, 1) 


C  load  accelerometer  readings 

DV2SS2 ( 1 )  =- (Q2*Q2+R2*R2) *R2SS2 (1)  +  (P2*Q2-DR2 ) *R2SS2 (2 ) 
X  +  (P2*R2+DQ2) *R2SS2 (3) 

DV2SS2 (2 )  =  (P2*Q2+DR2) *R2SS2 (1)  -  (P2*P2+R2*R2 ) *R2SS2 (2 ) 
X  +  (Q2*R2-DP2) *R2SS2 (3) 

DV2SS2 ( 3 )  =  (P2*R2-DQ2) *R2SS2 (1)  +  (Q2*R2+DP2 ) *R2SS2 (2 ) 

X  - (P2*P2+Q2*Q2) *R2SS2 (3) 

AMGS2 ( 1 )  =  DV2S2 ( 1 )  -  G*KN2(1)  +  DV2SS2(1) 

AMGS2 ( 2 )  =  DV2S2 (2 )  -  G*KN2(2)  +  DV2SS2(2) 

AMGS2 ( 3 )  =  DV2S2 ( 3 )  -  G*KN2(3)  +  DV2SS2(3) 


C  load  p,  q  in  load-HC  heading  axes  per  MT 
CPS2M1  =  COS (PS2  -  PS1) 

SPS2M1  =  SIN (PS2  -  PS1) 

P2P  =  OM22 (1) *CPS2M1  -  OM22 (2 ) *SPS2M1 

Q2P  =  OM22 (1) *SPS2M1  +  OM22 (2 ) *CPS2M1 


C  pht  3  mar  99  transformed  load  motion: 

C  load  ang  vel  in  inertial  coords,  and  in  level  heading  (?)  coords 


CPS2M1 
SPS2M1 
SPH2M1 
CPH2M1 
STH2M1 
CTH2M1 
T1T2 (1,1) 
T1T2 (2,1) 
T1T2 (3,1) 
T1T2 (1,2) 
T1T2 (2,2) 
T1T2  (3,2) 
T1T2  (1,3) 
T1T2  (2,3) 
T1T2  (3,3) 


COS (PS2  -  PS1) 

SIN (PS2  -  PS1) 

SIN (PH2 ) 

COS (PH2 ) 

SIN (TH2 ) 

COS (TH2 ) 

CPS2M1*CTH2M1 

CTH2M1*SPS2M1 

-STH2M1 

CPS2M1*SPH2M1*STH2M1  -  CPH2M1*SPS2M1 
SPH2M1*SPS2M1*STH2M1  +  CPH2M1*CPS2M1 
CTH2M1*SPH2M1 

CPH2M1*CPS2M1*STH2M1  +  SPH2M1*SPS2M1 
CPH2M1*SPS2M1*STH2M1  -  CPS2M1*SPH2M1 
CPH2M1 *CTH2M1 


P2N 

Q2N 

R2N 


TN2  (1, 3)  *OM22  (3)  + 
TN2  (2, 3)  *OM22  (3)  + 
OM22 (3) *TN2  (3, 3)  + 


TN2 (1,2) *OM22  (2) 
OM22 (2) *TN2  (2,2) 
OM22 (2) *TN2 (3,2) 


+  OM22 (1) *TN2  (1,1) 
+  OM22 (1) *TN2 (2,1) 
+  OM22 (1) *TN2 (3,1) 


P21 

Q21 

R21 

C  end  pht 


T1T2 (1,3) *OM22 (3) 
T1T2 (2,3) *OM22 (3) 
T1T2 (3,3) *OM22 (3) 


+  OM22 (2) *T1T2  (1,2) 
+  OM22 (2) *T1T2 (2,2) 
+  OM22 (2) *T1T2 (3,2) 


+  OM22 (1) *T1T2 (1,1) 
+  OM22 (1) *T1T2  (2,1) 
+  OM22 (1) *T1T2 (3,1) 


NS  =  NS  +  1 
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c*** 


SEC  800.  INTEGRATION:  compute  u,  q  at  tn  +  dt,  store  past  values 


C  update  u.  null  stretching  rate  exactly  if  inelastic  suspension 
DO  800  I  =  1,12 

800  U(I)  =  U(I)  +  (3*DU(I)  -  ODU ( I ) ) *DT02 
IF  (STRETCH. EQ. 0)  THEN 

DRA2S2 (1)  =  0 . 

DRA2S2 (2)  =  0 . 

DRA2S2 (3)  =  0 . 

END  IF 

C  compute  dq(q,u)  using  updated  u 
DO  801  I  =  1,3 
DQ (I)  =  V1SN  (I) 

801  DQ ( 1  +  9 )  =  DRA2S2  ( I ) 

DPS 1  =  (OM11 (2) *SPH1  +  OM11 (3) *CPH1) /CTH1 

DPH1  =  OMll(l)  +  DPS1*STH1 

DTH1  =  OM1 1(2) *CPH1  -  OMll(3)*SPHl 

DPS2  =  (OM22 (2 ) *SPH2  +  OM22 (3) *CPH2) /CTH2 

DPH2  =  OM22 ( 1 )  +  DPS2*STH2 

DTH2  =  OM22 (2 ) *CPH2  -  OM22(3)*SPH2 

C  update  q  and  store  past  values 
DO  802  I  =  1,12 

Q ( I )  =  Q ( I )  +  (ODQ(I)  +  DQ ( I ) ) *DT02 

ODU  (I)  =  DU  (I) 

802  ODQ(I)  =  DQ ( I ) 

END 
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APPENDIX  K  GHSL  INIT.F 


Initialization  module  for  GenHel  /  Slung  Load  simulation.  Load  stability 
parameters  were  added.  .  Program  by  Tyson,  P.  modified  by  Ehlers,  G. 

C  file  genhel/batch/sl/ghsl_init . f  -  31  AUG 

98  Peter  Tyson 

C  Load  Stabil  Parameters  added  Jul  01  by  George  Ehlers 
C  Initialization  for  GenHel/Slung  Load  Simulation. 

C  Reads  input  data  from  'ghsl.dat'  which  resides  in  the  GenHel/batch 
C  directory.  Load  Configuration  and  Slung  Load  run  parameters  are 
C  appended  to  the  FLTNAME//01 . INFO  outfile  (ASCII  format)  and  to  the 
C  screen  dump  during  nrt  program  operation  (only  for  SLSC  or  SLMC 
cases)  . 

C  Subroutine  is  called  by  BHAWK_NRT_EXEC  immediately  following  call 
C  for  BHAWK_NRT_INIT . 

SUBROUTINE  GHSL_INIT 

INCLUDE  'slvars.cmn' 

REAL  FSHK,  BLHK,  WLHK,  FSHB,  BLHB,  WLHB,  FSCGTNK,  FSWI,  FWMX, 

X  ESBLCG,  ESWLCG,  AIRSPEED,  KSWRL,  KR2 ,  KPS2 ,  KDYN 

CHARACTER  CABLES 

EQUIVALENCE  (A(238),  AIRSPEED) 

DATA 

X  ICUNIT,  I OUT  /l,  6/ 

X  FSHK,  WLHK,  BLHK  /352.6,  195.5,  0./, 

X  FSHB,  WLHB,  BLHB  /341.2,  315.0,  0./, 

X  FSCGTNK,  FSWI  /420.8,  6.8/, 

X  ESBLCG,  ESWLCG  /0.0,  247.2/ 

NAMELIST  /HCDATA/  TOW,  XMOMTO,  FWT,  FWMX,  AIRSPEED 

NAMELIST  / SLRUN/  CHFILE,  AXIS,  DATAFILE,  STRETCH, 

X  IAERSL,  I LOAD,  IPILOT,  I WAKE,  ISWIRL,  IDATA,  STABSYST, 

X  DYNAMIC,  PWL_TIME ,  PWLCNTRL 


cl23456789cl23456789cl23456789cl23456789cl23456789cl23456789cl23456789c 

1 


NAMELIST  / SLDATA/  LOADNAME,  W2,  I2XX,  I2YY,  I2ZZ,  I2XZ,  KS, 
X  CS,  LCO,  RA2P02 ,  R2P2S02,  R2P2S2,  NC,  R2PJ2,  R2S12,  DOQ, 

X  DELPS20,  R20D,  R2SS2 ,  KDYN,  KSWRL,  KR2 ,  KPS 2 

C  Load  stabilization  Parameters 

NAMELIST  /STABDAT/  ACTIVE,  TEMP,  GAINH ,  CH,  SH,  CLAH,  CLDH, 

X  CDOH,  CDPH,  STALH1 ,  STALH2 ,  RH,  GAINV,  CV,  SV,  CLAV,  CLDV, 
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X  CDOV,  CDPV,  STALV1,  STALV2 ,  RV 


C  reset  RLOAD  common  block  variables 
DO  1  I  =  1,500 
1  RLOAD ( I )  =0 

NREC  =  0 

OPEN ( ICUNIT, FILE= ' ghsl . dat ' , STATUS= ' OLD ' , READONLY, ERR=1 4 ) 

READ ( ICUNIT, HCDATA) 

REWIND  ICUNIT 
READ (ICUNIT, SLRUN) 

REWIND  ICUNIT 
READ (ICUNIT, SLDATA) 

CLOSE (ICUNIT) 

OPEN ( ICUNIT, FILE= ' loadstab . dat ' , STATUS= 1  OLD ' , READONLY,  ERR=15 ) 
READ ( I CUN I T , S  TABDAT ) 

CLOSE (ICUNIT) 

XMOMI  =  XMOMTO  -  FWMX*FSCGTNK 

ZMOMI  =  TOW*ESWLCG  -  (204.75  +  . 0 91 1 6*FWMX/FSWI ) *FWMX 

W1  =  TOW  -  FWMX  +  FWT 

FSCG  =  (XMOMI  +  FWT*FSCGTNK) /W1 

WLCG  =  (ZMOMI  +  (204.75  +  . 0 9 1 1 6*FWT/FSWI ) *FWT ) /W1 
BLCG  =  ESBLCG 


C -  position  vector,  HC  c.g.  to  hook,  HC  bocy  axes  - C 

R1SA1(1)  =  (FSCG  -  FSHK)/12. 

R1SA1 (2 )  =  (-BLCG  +  BLHK)/12. 

R1SA1 ( 3 )  =  (WLCG  -  WLHK)/12. 

IF  (CHFILE . NE . ' sweep . dat ' )  AXIS  =  1 

IF  ( I LOAD . EQ . 0 )  WRITE ( IOUT, 1 0 0 ) 

IF  ( I LOAD . EQ . 1 )  THEN 
WRITE (IOUT, 101) 

CABLES  =  '  ' 

END  IF 

IF  ( I LOAD . EQ . 2 )  THEN 
WRITE (IOUT, 102) 

CABLES  =  'S' 

END  IF 

IF  ( I LOAD . NE . 0 )  THEN 

WRITE (IOUT, 103)  LOADNAME,  W2,  I2XX,  I2YY,  I2ZZ,  I2XZ,  RA2P02, 
X  R2P2S02 ,  R2P2S2 ,  (R2P  J2  ( 1 ,  J)  ,  R2P  J2  (2 ,  J)  ,  R2P  J2  ( 3 ,  J)  ,  J=1 ,  NC) 

WRITE (IOUT, 104)  TOW,  Wl,  FWT 
WRITE (IOUT, 105)  KS,  CS,  DT 
IF  (STRETCH. EQ. 0)  WRITE ( IOUT, 1 0 6 )  CABLES 
IF  (STRETCH. EQ. 1)  WRITE ( IOUT, 1 0 7 )  CABLES 
IF  ( (IAERSL.EQ. 1) .AND . (DOQ.EQ. 0 . ) )  WRITE  (IOUT, 108) 

IF  (IAERSL.EQ. 1)  WRITE ( IOUT, 1 0 9 ) 

IF  (IAERSL.EQ. 2)  WRITE ( IOUT, 1 1 0 ) 

IF  (IWAKE.EQ.0)  WRITE ( IOUT, 1 1 1 ) 

IF  (IWAKE.EQ.l)  THEN 

IF  (ISWIRL.EQ. 0)  WRITE (IOUT, 112) 

IF  (ISWIRL.EQ. 1)  WRITE (IOUT, 113) 

END  IF 
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END  IF 

IF  (IPILOT.EQ. 0)  WRITE (IOUT, 114) 

IF  (IPILOT.EQ. 1)  WRITE (IOUT, 115) 

IF  (CHFILE.EQ. ' sweep.dat ' )  THEN 
IF  (AXIS . EQ . 1 )  WRITE (IOUT, 116) 

IF  (AXIS . EQ . 2 )  WRITE (IOUT, 117) 

IF  (AXIS . EQ . 3 )  WRITE (IOUT, 118) 

IF  (AXIS . EQ . 4 )  WRITE (IOUT, 119) 

END  IF 
RETURN 

100  FORMAT (5X'NO  LOAD  SIMULATION') 

101  FORMAT (5X' SINGLE  LOAD,  SINGLE  CABLE  SIMULATION') 

102  FORMAT (5X' SINGLE  LOAD,  MULTI-CABLE  SIMULATION') 

103  FORMAT (// 

X'  LOAD  CONFIGURATIO  N'// 

X5X ' LOAD  DESCRIPTION  :  'A// 

X5X ' LOAD  WEIGHT  :  'F8.2// 

X5X ' LOAD  INERTIA  XX  :  'F8.2, 

X'  LOAD  INERTIA  YY  :  'F8.2,'  LB-FT-S**2 '  ,  / 

X5X ' LOAD  INERTIA  ZZ  :  'F8.2, 

X'  LOAD  INERTIA  XZ  :  'F8.2,'  LB-FT-S**2 ' , // 

X5X ' RA2P02  :  '3F8.2/ 

X5X ' R2P2S02  :  '3F8.2/ 

X5X ' R2P2S2  :  '3F8.2// 

X5X ' R2P J2  :  ' /8 (10X, 3F8 .2/) ) 

104  FORMAT (5X'T/0  WT,  CURRENT  WT,  FUEL  WT :  '3F10.2/) 

105  FORMAT (5X'KS,  CS,  DT  :  '3F8.2/) 

106  FORMAT (5X' INELASTIC  CABLE', A) 

107  FORMAT (5X' ELASTIC  CABLE', A) 

108  FORMAT (5X' NO  AERODYNAMICS' ) 

109  FORMAT ( 5X ' DRAG  ONLY  AERODYNAMICS') 

110  FORMAT (5X'CONEX  AERODYNAMICS') 

111  FORMAT ( 5X ' WAKE  MODEL  NOT  SELECTED') 

112  FORMAT (5X' AXIAL  WAKE  MODEL  SELECTED') 

113  FORMAT (5X' 3-D  WAKE  MODEL  SELECTED') 

114  FORMAT (5X' INPUT  CONTROL  HISTORY  AUTOPILOT  DISENGAGED') 

115  FORMAT (5X' INPUT  CONTROL  HISTORY  AUTOPILOT  ENGAGED') 

116  FORMAT ( 5X ' LATERAL  AXIS  COMPUTER  GENERATED  FREQUENCY  SWEEP') 

117  FORMAT (5X' LONGITUDINAL  AXIS  COMPUTER  GENERATED  FREQUENCY  SWEEP') 

118  FORMAT (5X' COLLECTIVE  AXIS  COMPUTER  GENERATED  FREQUENCY  SWEEP') 

119  FORMAT (5X' DIRECTIONAL  AXIS  COMPUTER  GENERATED  FREQUENCY  SWEEP') 

14  WRITE (6, 12 ) 

12  FORMAT ('!! !  ERROR  OPENING  INPUT  FILE  ghsl.dat  !!!') 

STOP 

15  WRITE (6, 13) 

13  FORMAT ('!! !  ERROR  OPENING  INPUT  FILE  loadstab.dat  !!!') 

STOP 

END 
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APPENDIX  LNRT  UNC3  OUT.F 


Output  module  for  GenHel  /  Slung  Load  program.  Writes  formatted  output  to 
binary  file  for  analysis.  Load  stability  outputs  were  added.  Program  by  Tyson,  P. 
modified  by  Ehlers,  G. 


C  file  genhel/batch/sl/nrt_unc3_out . f  -  31  AUG 

98  Peter  Tyson 

C  small  changes  to  output  list  jun  00 

C  Writes  formatted  output  to  binary  file  for  GenHel/Slung  Load 

C  simulation.  Output  file  'name.dat'  is  then  read  and  reformatted 
C  by  ghsl_dat.f  (runghsldat)  to  create  ' name . out '  (ASCII  header  file) 

C  and  'name.xp'  (UNC3  format  XPLOT/CIFER  file) . 

C  This  subroutine  is  called  by  BHAWK_NRT_IO  in  the  non-real-time 

C  run  of  GenHel,  version  6.0sl.  NRESET  true  opens  output  files  and 
C  writes  header  information.  NREC  contains  the  number  of  records  read 
C  from  the  input  file  (done  after  first  time  through  NRT_UNC3_OUT 
C  and  so  is  written  to  data  file  on  second  pass) 

SUBROUTINE  NRT_UNC3_OUT (NRESET) 

INCLUDE  'slvars.cmn' 

COMMON  /ISCASC/  ISCAS(50) 

EQUIVALENCE  (ISCAS(6),  NGAJFPS ) 

EQUIVALENCE  (A(148),  FNORTH) ,  (A(149),  FE),  (A(150),  FD) 

EQUIVALENCE  (A(164),  TTL) ,  (A(165),  TTM) ,  (A(166),  TTN) 

EQUIVALENCE  (FCS(67),  XAT) ,  (FCS(68),  XBT) ,  (FCS(69),  XPT) 

CHARACTER* 40  FN,  FN2 
INTEGER  FIRSTPASS 
DATA  FIRSTPASS  / 0 / 

C -  first  pass  after  reset,  open  output  file,  do  IC  writes  set 

firstpass  =  1  and  return  - C 

C -  second  pass  write  NREC,  set  firstpass  =  0,  and  write  record 

C -  write  record  each  cycle  thereafter 

IF  (NRESET  .NE.  0)  THEN 
NRESET  =  0 
FIRSTPASS  =  1 
NLAST  =  LASTCHR (DATAFILE) 

FN  =  DATAFILE (1 :NLAST) //" .dat" 

OPEN (1, FILE=FN, FORM= ' UNFORMATTED ' , STATUS= ' UNKNOWN ' ) 

WRITE (1)  NSTORE,  DT,  I LOAD,  I WAKE,  ISWIRL,  IPILOT,  IDATA, 

X  NGAJFPS,  TOW,  FWT,  Wl,  I1XX,  I1YY,  I1ZZ,  I1XZ,  AXIS,  R1SN, 

X  PH1DEG,  TH1DEG,  PS1DEG,  (A ( J) , J=64, 66) ,  PSVA,  FA11,  MA11, 

X  XAAD,  XBAD,  XCAD,  XPAD 

WRITE (1)  CHFILE 
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no 


C 


load  ic  write 

IF  ( I LOAD . EQ . 0 )  WRITE (6, 17)  FN 

C  slsc  ic 

write 


X 

X 

X 


C 

write 


X 

X 

X 

X 

X 

X 


IF  ( I LOAD . EQ . 1 )  THEN 
WRITE (6, 18)  FN 

WRITE  (1)  LOADNAME,  W2,  I2XX,  I2YY,  I2ZZ,  I2XZ,  R1SA1, 
R2S12,  DOQ,  STRETCH,  LCO,  LC,  KS,  CS,  QO,  V1S1, 

FAIN,  FA2N,  PH2*R2D,  TH2*R2D,  PS2*R2D,  PHC,  THC,  Q(12), 

(U ( j ) , j=l , 12 ) 

END  IF 

slmc  ic 

IF  ( I LOAD . EQ . 2 )  THEN 
WRITE (6, 19)  FN 

WRITE (1)  LOADNAME,  W2,  I2XX,  I2YY,  I2ZZ,  I2XZ,  STRETCH, 
IAERSL,  NC,  R2SJ2,  RA2P02,  R2P2S02,  R2P2S2,  KS,  CS, 
R1SA1 ,  R2PJ2,  DOQ,  GAM*RTD,  PSVA*RTD,  ALF2D,  BET2D, 
DETG,  LC JO,  LC J,  TAUJ,  FAIN,  FC11,  FC1N,  MC11,  FA22, 
FA2N,  MA22 ,  (A ( J) , J=64, 66) ,  PH2*R2D,  TH2*R2D,  PS2*R2D, 
RA2S2 ,  VA2SN,  R1S2SN,  DYNAMIC, OM22 ,  DV2SN,  KSWRL, 

KDYN, KR2, KPS 2 

END  IF 


C 


wake  ic 


write 

IF  ( ( I LOAD . NE . 0 ) . AND . ( I WAKE . EQ . 1 ) )  THEN 
FN2  =  DATAFILE (1 :NLAST) //" ,da2" 

OPEN (3, FILE=FN2,FORM=' UNFORMATTED ' , STATUS= 1  UNKNOWN ' ) 
WRITE (3)  NSTORE 
WRITE  (6, 20)  FN2 
END  IF 
RETURN 
END  IF 


C -  write  number  of  input  data  points  on  second  pass  only  - C 

C  set  NREC  =  LLLOAD(12) .  Mystery  -  sometimes  the  code  doesn't 
equivalence  nrec  to  lload(12) 

C  as  specified  in  slvars.cmn  Unpredictable  occurrence. 

IF  (FIRSTPASS . NE . 0 )  THEN 
NREC  =  LLOAD ( 12 ) 

WRITE (1)  NREC 
FIRSTPASS  =  0 
END  IF 

write  data  each  time  called  - C 

no  load 

IF  ( I LOAD . EQ . 0 )  WRITE  (1)  T,  (A ( j ) , j  =  8 8 ,  90 ) ,  (A ( j ) , j=55, 57) , 

X  (A( j) , j  =  64,  66) ,  (A ( j ) , j  =  3  7 ,39),  (A ( j ) , j=4 , 9) , 

X  A (106) ,  A (107),  A (176),  FA11,  MA11,  XAAD,  XBAD,  XCAD,  XPAD, 
X  RSAS ,  PSAS,  YSAS ,  DMIXA,  DMIXB,  DMIXC,  DMIXP,  PSFWD,  PSAFT, 
X  PSLAT,  PSTR 

slsc 

IF  ( I LOAD . EQ . 1 )  WRITE (1)  T,  DU,  TAU,  U,  (DQ ( I ) , 1=4 , 1 1 ) ,  Q, 

X  R2SN,  V2SN,  DV2SN,  RSN,  VSN,  DELRSN,  DELVSN,  DELDVSN,  SSFN, 
X  ISSFN,  IISSFN,  FA1 1 ,  FAIN,  FA2N,  MA11,  MA22,  OMCC,  LCMLCO, 
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c — 
c 


c 

list 


MAI  1 


C 

list 


X  RHK2S1,  FC11 ,  MCI 1 ,  XAAD,  XBAD,  XCAD,  XPAD,  PHCH,  THCH, 

X  RPHC,  RTHC,  RSAS ,  PSAS,  YSAS,  DMIXA,  DMIXB,  DMIXC,  DMIXP, 

X  PSFWD,  PSAFT,  PSLAT,  PSTR 

slmc,  long 

IF  ( (ILOAD.EQ.2) .AND. (IDATA.EQ. 1) )  WRITE (1)  T,  DU,  U, 

X  (DQ (I) , 1=4, 9) ,  Q,  P2P,  Q2P ,  FC11,  FC1N,  MC11,  FA11,  FAIN, 

X  FA22 ,  FA2N,  MA22,  FA2W,  MA2W,  V2SN,  VA2S2 ,  RA2S1,  R1S2SN, 

X  XAAD,  XBAD,  XCAD,  XPAD,  RSAS,  PSAS,  YSAS,  DMIXA,  DMIXB,  DMIXC, 

X  DMIXP,  PSFWD,  PSAFT,  PSLAT,  PSTR,  float (QUAD),  ALF2D,  BET2D, 

X  DALF2D,  DBET2D,  DANG2D,  P21,  Q21,  R21,  P2N,  Q2N,  R2N,test, 

X  DELXAAD, DELXBAD, DELXPAD, DELXCAD, CAD_SAVE, AMGS2, DV1S1, 

X  F1V,  F2V,  F3V,  F1H,  F2H,  F3H,  SPEED 

slmc,  short 

IF ( (ILOAD.EQ.2) .AND. (IDATA.EQ. 0) )  WRITE (1)  T,  (U ( I ) , 1=4 , 6 ) , 

X  XAAD,  XBAD,  XCAD,  XPAD,  P2P,  Q2P ,  RSAS,  PSAS,  YSAS,  DMIXA, 

X  DMIXB,  DMIXC,  DMIXP , DELXAAD , DELXBAD , DELXPAD , DELXCAD 


RETURN 
15  FORMAT (/) 

17  FORMAT (/5x' WRITING  NO-LOAD  HEADER  TO  '16A) 

18  FORMAT (/5x' WRITING  SL  SINGLE  CABLE  HEADER  TO  '16A) 

19  FORMAT (/5x' WRITING  SL  MULTI-CABLE  HEADER  TO  '16A) 

20  FORMAT (/5x' WRITING  WAKE  INFORMATION  TO  '16A) 

END 
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APPENDIX  M  GHSLDAT 


Data  input  module  for  GenHel  /  Slung  Load  simulation.  Yaw  degree  of  freedom 
correction  parameters  were  added.  Program  by  Tyson,  P.  modified  by  Ehlers,  G. 


C  file  /genhel/batch/ghsl . dat  -  31  AUG 

98  Peter  Tyson 

C  Yaw  DOF  Corrections  by  George  Ehlers  July  01 

C  Data  input  for  GenHel/Slung  Load  simulation,  read  by  GHSL_INIT. 

C  To  change  case,  comment  &SLDATA  line  for  all  cases  except  desired. 
&HCDATA 

TOW  =  14689.0, 

XMOMTO  =  5307900.0, 

FWT  =  2000.0, 

FWMX  =  2360.0, 

AIRSPEED  =  60, 

&END 

&SLRUN 

DATAFILE  ='junk' 

CHFILE  = ' f ltl69 . 18ghch ' 

AXIS  =  1, 

DYNAMIC  =  0, 

STRETCH  =  1, 

IAERSL  =  4, 

I LOAD  =  2, 

IPILOT  =  1, 

I WAKE  =  0, 

ISWIRL  =  0, 

IDATA  =  1, 

STABSYST  =  1, 

&END 

C  CHFILE  =  ' /ctr/cicolani/f ltl72 . 12ch ' , 

C  AIRSPEED  =  0.0, 

C  Helicopter  Data: 

C  TOW  Take  Off  Weight 

C  XMOMTO  X-  Moment  Arm  based  on  takeoff  weight  (with  full  fuel 

load) 

C  FWT  Fuel  Weight  at  time  of  maneuver  to  be  simulated 

C  FWMX  Maximum  Fuel  weight  at  takeoff 

C  Run  Options: 

c  DATAFILE  filename  for  output  file  fn.dat  (fn.out,  fn.xp  are 
generated  by  ghsl_dat.f) 

c  CHFILE  filename  for  control  history  inputs,  binary  files  read  in 

nrt_unc3_in . f 
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can  be  sweep.dat  from  makesweep  or  fltxxx_yy.dat  flight 
control  histories 

C  AXIS  (1)  Lat  (2)  Long  (3)  Coll  (4)  Dir  (only  req'd  for 

sweep . dat ) 

C  STRETCH  (0)  inelastic  cables  (1)  elastic  cables 

C  IAERSL  (1)  drag  only  (2)  CONEX  static  aero  (PT/techdat3 ) ,  (3) 

conex4  (LC/techdat4 ) 

C  I LOAD  (0)  no-load  (1)  SLSC  (IK  Plate  load)  (2)  SLMC 

C  IPILOT  (0)  no  feedback  into  control  inputs  (1)  feedback 

included 

C  IWAKE  (0)  no  wake  model  (1)  wake  model  incorporated 

C  ISWIRL  (0)  no  swirl  in  wake  (1)  swirl  in  wake  (tangential 

velocity) 

C  IDATA  (0)  minimum  data  for  CIFER  analysis  (1)  full  data  output 

C  UH60  flight  test  case  (ballasted  CONEX  with  instrumentation  and 
C  standard  4-cable  sling) .  LIFT  PT  coords  revised  14feb97, 

C  Inertia  and  coords  adjusted  13may97,  14jul98. 

C  Lift  points,  r2pj2,  are  set  away  from  edge  of  conex  a  little. 

C  R2SS2  =  load-cg-to-accelerometer  vector.  use  zero  if  no  load 
accelerometers 

&SLDATA 


LOADNAME 

= 

' 4K  CONEX  (BALLASTED)  WITH  INST  PKG 

W2 

= 

4105.0, 

I2XX 

= 

1876.0, 

I2YY 

= 

1482.2, 

I2ZZ 

= 

1376.0, 

I2XZ 

= 

O 

o 

KS 

= 

9645.0, 

CS 

= 

22 .0, 

RA2P02 

= 

o 

o 

o 

o 

18.3036, 

R2P2S02 

= 

o 

o 

o 

o 

1 . 38, 

R2P2S2 

= 

o 

o 

o 

o 

1.38, 

NC 

= 

4, 

R2PJ2 

= 

2.8073,  -4 

.0626,  -3.2032, 

2.8073,  4 

.0626,  -3.2032, 

-2.8073,  -4 

.0626,  -3.2032, 

-2.8073,  4 

.0626,  -3.2032,  12*0, 

DOQ 

= 

0, 

DELPS20 

= 

-45, 

R20D 

= 

100, 

R2SS2 

= 

1.031,  .575 

,  -.899, 

KSWRL 

= 

40 

KR2 

= 

1.5 

KDYN 

= 

.3 

&END 

C  empty  CONEX  load,  including  instrumentation. 
C&SLDATA 

LOADNAME  =  ' 2K  CONEX  (UNBALLASTED)  WITH  INST  PKG 
W2  =  1794.0, 

I2XX  =  785.3, 

I2YY  =  590.7, 

I2ZZ  =  766.0, 

I2XZ  =  0.0, 
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KS  =  9645.0, 

CS  =  22.0, 


RA2P02 

o 

o 

o 

II 

0,  18.3036, 

R2P2S02 

o 

o 

o 

II 

0,  1.38, 

R2P2S2 

o 

o 

o 

II 

0,  1.38, 

NC 

4 

R2PJ2 

2.8073, 

-4.0626,  - 

3.2032 

2 . 8073, 

4.0626,  - 

3.2032 

-2 . 8073, 

-4.0626,  - 

3.2032 

-2 . 8073, 

4.0626,  - 

3.2032 

DOQ 

=  50.0, 

R20D 

=  0 

&END 


12*0, 


R2SS2  =  .891,  .575,  .276, 


C  41541b  35.5  x  35.5  x  14.625  in  steel  block  UH60  97  fit  test  load  - 
1997  tests. 

C  Adjusted  14jul98. 

C  Lift  point  coords,  r2pj2,  are  set  away  from  edge  of  block  a  little. 
C  ra2po2  changed  from  0,0,18.14863  to  0,0,16.4391,  20  jul  98  pht 


C&SLDATA 


LOADNAME 

= 

' 4K  STEEL  BLOCK  (no  instrumentation) ', 

W2 

= 

4154.0, 

I2XX 

= 

109.6, 

I2YY 

= 

109.6, 

I2ZZ 

= 

187 .1, 

I2XZ 

= 

0.0, 

KS 

= 

9645.0, 

CS 

= 

22 .0, 

RA2P02 

= 

0.0,  0.0, 

16.4391, 

R2P2S02 

= 

0.0,  0.0, 

0 .0, 

R2P2S2 

= 

0.0,  0.0, 

0 .0, 

NC 

= 

4 

R2PJ2 

= 

1.32,  -1. 

32,  -0.61, 

1.32,  1. 

32,  -0.61, 

-1.32,  -1. 

32,  -0.61, 

-1.32,  1. 

32,  -0.61,  12*0, 

DOQ 

= 

10 .0, 

R2SS2 

= 

0,  0,  0, 

&END 


C  4K  steel  block  load  -  1999  flight  tests,  including  instrumentation 
C&SLDATA 


LOADNAME 

= 

'  4K  STEEL  BLOCK', 

W2 

= 

3895.0, 

I2XX 

= 

103.7, 

I2YY 

= 

104 . 6, 

I2ZZ 

= 

174 . 3 

I2XZ 

= 

O 

o 

KS 

= 

9645.0, 

CS 

= 

22.0, 

RA2P02 

= 

0.0,  0.0,  16.4086, 

R2P2S02 

= 

o 

o 

o 

o 

o 

o 

R2P2S2 

= 

o 

o 

o 

o 

o 

o 

NC 

= 

4 
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R2PJ2 


1.27,  -1.27,  -0.61, 

1.27,  1.27,  -0.61, 

-1.27,  -1.27,  -0.61, 

-1.27,  1.27,  -0.61,  12*0, 

DOQ  =  10.0, 

R2SS2  =  .787,  .244,  -.688, 

&END 


C  63841b  steel  block,  weighed  28  jul  98  on  the  S/R  (Bldg  255)  10K 

pallet 

C  scale.  Some  water  was  in  the  block  (leaked  out  when  lifted) 

C  unknown  what  total  water  capacity  is. . . 

C  Parameters  calculated  15  jul  98,  recalc  28  jul  98 
c&SLDATA 


LOADNAME 

= 

' 6K  STEEL  BLOCK 

W2 

= 

6384 .0, 

I2XX 

= 

308 .4, 

I2YY 

= 

296.2, 

I2ZZ 

= 

470 .7, 

I2XZ 

= 

o 

o 

KS 

= 

9645.0, 

CS 

= 

22.0, 

RA2P02 

= 

0.0,  0.0,  16.4741, 

R2P2S02 

= 

0.0,  -0.118  -0.179, 

R2P2S2 

= 

0.0,  -0.118  -0.179, 

NC 

= 

4, 

R2PJ2 

= 

1.8333,  -1.8333,  -0.6792 

1.8333,  1.8333,  -0.6792 

-1.8333,  -1.8333,  -0.6792 

-1.8333,  1.8333,  -0.6792 

DOQ 

= 

O 

O 

R2SS2 

= 

o 

o 

o 

&END 


C  11301b  steel  plate,  use  with  ILOAD  =  1  (SLSC)  option 
c&SLDATA 


LOADNAME 

= 

'IK  STEEL  PLATE 

W2 

= 

1130 .0, 

I2XX 

= 

9.1, 

I2YY 

= 

119.3, 

I2ZZ 

= 

128 .1, 

I2XZ 

= 

O 

o 

KS 

= 

4172 .3, 

CS 

= 

o 

o 

LCO 

= 

22.7083, 

R2S12 

= 

O 

o 

o 

o 

1 

00 

u> 

O'* 

DOQ 

= 

O 

O 
\ — 1 

R2SS2 

= 

o 

o 

o 

&END 

C  (DOQ  normally  10.0) 
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APPENDIX  N  GHSL  DAT.F 


Writes  binary  data  file  into  unc3  format  for  plotting.  Load  stabilization  data  was 
added.  Program  by  Tyson,  P.  modified  by  Ehlers,  G. 


C  file  /u2/harrier/tyson/GenHel/batch/ghsl_dat . f  - 

31  AUG  98,  Peter  Tyson 

C  Data  print  and  plot  storage  file  for  GenHel/Slung  Load  simulation. 

C  Parameters  nchanx  =  number  of  variables  stored  in  dat  array  for  (1) 
no-load,  (2)  slsc,  and  (3)  slmc  cases. 

C  ILOAD  =  (0,1,2)  ->  (no  load,  slsc,  slmc)  variable  list.  IDATA  = 
(0,1)  ->  short, long  list  for  slmc. 

PROGRAM  GHSL_DAT 

PARAMETER (NCHAN1  =  43) 

PARAMETER (NCHAN2  =  126) 

PARAMETER (NCHAN3  =  137) 

PARAMETER (NCHAN4  =  21) 

PARAMETER (NCHANW  =  53) 

PARAMETER (NCHANX  =  21) 

REAL  FA1 1(3),  FAIN (3),  MA11(3),  FC11(3),  FC1N(3),  MC11(3), 

X  FA22 ( 3 ) ,  FA2N ( 3 ) ,  MA22(3),  FC22(3),  FC2N(3),  MC22(3), 

X  R1SN ( 3 ) ,  V1SN ( 3 ) ,  R1SA1(3),  VA2SN(3),  R2SJ2(24),  RA2S2(3), 

X  RA2P02 ( 3 )  , 

X  R2P2S02 ( 3 ) ,  R2P2S2 ( 3 ) ,  R2PJ2(3,8),  R2S12(3),  V1S1(3), 

X  QO ( 12 ) ,  Q ( 12 ) ,  U ( 12 ) ,  LCO,  LC,  KS,  I1XX,  I1YY,  I1ZZ,  I1XZ, 

X  I2XX,  I2YY,  I2ZZ,  I2XZ,  C(4),  TAUJ(8),  LCJ(8),  LCJO(8), 

X  DHOOK,  HHOOK,  DAT1 (NCHAN1 ) ,  DAT2 (NCHAN2 ) ,  DAT3 (NCHAN3 ) , 

X  DAT 4 (NCHAN4 ) ,  DATW (NCHANW) ,  DATX (NCHANX) ,  DALF2D,  DBET2D, 

X  DANG2D,  ALF2D,  BET2D,  R1S2SN(3),  DYNAMIC,  P21,  Q21,  R21, 

X  AMGS2  (3)  ,  OM22  (3)  ,  DV2SN  (3)  , 

X  KSWRL, KDYN, KR2 , KPS2 , KTSTFPS 

REAL* 8  TIME,  DAT81 (NCHAN1) ,  DAT82 (NCHAN2) ,  DAT83 (NCHAN3+1) , 

X  DAT 8 4 (NCHAN4) ,  DAT8W (NCHANW) ,  DAT8X (NCHANX) 

INTEGER  STRETCH,  JRTD1(12),  JRTD2(31),  JRTD3(32),  JRTD4(5), 

X  NREC,  AXIS 

INTEGER*4  UNIT 
LOGICAL* 4  openW,  L 

CHARACTER  NAME *30,  FIN*30, 

X  SN2 (NCHAN2) *16, 

X  SNW (NCHANW) *16, 

X  CHFILE*40 

DATA  UNIT/3/, 

X  RTD,  G,  KTSTFPS/57 . 2957795,  32.174,  1.687810/, 


FOUT*30,  FXP*30,  SN1 (NCHAN1) *16, 

SN3 (NCHAN3+1 ) *16,  SN4 (NCHAN4 ) *16, 

SNX (NCHANX) *16,  LOADNAME*40,  CABLES, 
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X  JRTD1/5,  6,  7, 11, 12, 13, 14, 15, 16, 17, 18, 19/, 

X  JRTD2/5, 6, 7, 8, 9, 10, 18, 19, 20, 21, 22, 23, 27, 28, 29, 30, 31, 32, 

X  33,  34, 38, 39,  40, 41,  42,  43, 44,  45,  95,  96,  97/, 

X  JRTD3/5, 6, 7, 8, 9, 10, 17, 18, 19, 20, 21, 22, 26, 27, 28, 29, 30, 31, 

X  35,36,37,38,39,40,44,45,112,113,114,  115,  116,  117/, 

X  JRTD4/2, 3, 4, 9, 10/ 

C 

NO  LOAD  SIGNAL  LIST 
DATA  SN1 / 


X 

'  Tl  ' 

, ' dvlsnx ' 

, ' dvlsny ' 

, ' dvlsnz ' 

, 'dpi ' 

r 

X 

'dql  ' 

,  'drl  ' 

, ' vlsnx ' 

, ' vlsny ' 

, ' vlsnz ' 

r 

X 

'pi  ' 

,  'ql' 

,  '  rl ' 

,  'phi ' 

,  '  thl ' 

r 

X 

'  psl  ' 

, ' dphl ' 

, ' dthl ' 

, 'dpsl' 

, ' rlsnx ' 

r 

X 

'  rlsny ' 

, ' rlsnz ' 

, ' fallx ' 

, ' tally ' 

, ' fallz ' 

r 

X 

'LAI  ' 

,  'MAI  ' 

,  '  NA1 ' 

,  '  da ' 

,  '  db ' 

r 

X 

'  dc  ' 

,  'dp' 

,  '  RSAS  ' 

, 'PSAS ' 

,  '  YSAS  ' 

r 

X 

' DMIXA ' 

, ' DMIXB ' 

, ' DMIXC ' 

, ' DMIXP ' 

,  '  PSFWD ' 

r 

X 

'PSAFT' 

, ' PSLAT ' 

, ' PSTR ' 

/ 

C 

SLSC  SIGNAL  LIST 
DATA  SN2/ 


X 

1  -J1  1 

r 

' dvlsnx ' 

, ' dvlsny ' 

, ' dvlsnz ' 

, 'dpi ' 

r 

X 

'dql  ' 

r 

'drl  ' 

,  '  dp  2  ' 

, ' dq2 ' 

, ' dr2 ' 

r 

X 

' dvalcx ' 

t 

' dvalcy ' 

, ' ddlc ' 

, ' tau/wl ' 

, ' vlsnx ' 

r 

X 

' vlsny ' 

t 

'  vlsnz ' 

,  'pi ' 

,  'ql ' 

,  '  rl ' 

r 

X 

'  p2  ' 

r 

'  q2  ' 

,  '  r2  ' 

, ' valex ' 

, ' valcy ' 

r 

X 

'die' 

r 

'  dphl  ' 

, ' dthl ' 

, 'dpsl' 

, ' dph2 ' 

r 

X 

' dth2 ' 

r 

' dp  s  2  ' 

, ' dphe ' 

, ' dthc ' 

, ' rlsnx ' 

r 

X 

'  rlsny ' 

t 

'  rlsnz  ' 

,  'phi ' 

,  'thl ' 

, 'psl ' 

r 

X 

'  ph2  ' 

r 

'  th2  ' 

, ' ps2 ' 

, 'phe' 

,  '  the ' 

r 

X 

'  lc  ' 

r 

' r2snx ' 

, ' r2sny ' 

, ' r2snz ' 

, ' v2snx ' 

r 

X 

' v2snx ' 

r 

'  v2snz ' 

, ' dv2snx ' 

, ' dv2sny ' 

, ' dv2snz ' 

r 

X 

'  rsnx ' 

r 

'  rsny ' 

, ' rsnz ' 

, ' vsnx ' 

, ' vsny ' 

r 

X 

' vsnz ' 

t 

' delrsx ' 

, ' delrsy ' 

, ' delrsz ' 

, ' delvsx ' 

r 

X 

' delvsy ' 

t 

' delvsz ' 

, ' dldvsx ' 

, ' dldvsy ' 

, ' dldvsz ' 

r 

X 

'  ssf  nx ' 

t 

'  ssf  ny ' 

,  '  ssfnz ' 

,  '  issfnx ' 

,  '  issfny ' 

r 

X 

'  issf nz ' 

t 

' iissf x ' 

,  '  iissfy ' 

,  '  iissf z ' 

,  '  fallx ' 

r 

X 

'  tally' 

r 

' fallz  ' 

, ' f alnx ' 

, ' f alny ' 

, ' falnz ' 

r 

X 

'  f  a2nx ' 

t 

'  f  a2ny ' 

, ' fa2nz ' 

, ' mal lx ' 

, ' mal ly ' 

r 

X 

'mallz ' 

r 

'  ma22x ' 

, ' ma22y ' 

, 'ma22z ' 

,  'pc' 

r 

X 

'  qc  ' 

r 

'  rc  ' 

, ' lcmlco ' 

, ' rhk2slx ' 

, ' rhk2sly ' 

r 

X 

' rhk2slz ' 

r 

'  f  c  1 1  x  ' 

, ' felly' 

,  ' f cl 1 z  ' 

, ' LC1 ' 

r 

X 

'MCI  ' 

r 

'NCI  ' 

,  '  da ' 

,  '  db ' 

,  '  dc ' 

r 

X 

'  dp  ' 

r 

'  phch ' 

,  '  thch ' 

,  '  rphe ' 

,  '  rthc ' 

r 

X 

' RSAS ' 

r 

'PSAS  ' 

, 'YSAS' 

, 'DMIXA' 

, 'DMIXB' 

r 

X 

'DMIXC' 

r 

'DMIXP' 

, 'PSFWD ' 

, 'PSAFT' 

,  'PSLAT' 

r 

X 

'PSTR' 

/ 

C 

SLMC :  LONG  LIST 
DATA  SN3/ 

X  ' Tl'  , 'dvlsnx'  , 'dvlsny'  , 'dvlsnz'  , 'dpi'  , 

X  'dql'  , 'drl'  , 'dp2'  , ' dq2 '  , 'dr2'  , 

X  'ddra2s2x', 'ddra2s2y', 'ddra2s2z', ' vlsnx'  , 'vlsny'  , 
X  'vlsnz'  , 'pi'  , ' ql '  , ' rl '  , 'p2'  , 

X  ' q2 '  , ' r2 '  , 'dra2s2x'  , 'dra2s2y'  , 'dra2s2z'  , 

X  'dphl'  , 'dthl'  , 'dpsl'  , 'dph2'  , 'dth2'  , 

X  'dps2'  , 'rlsnx'  , 'rlsny'  , 'rlsnz'  , 'phi'  , 
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X 

'  thl  ' 

,  'psl ' 

,  '  ph2  ' 

,  '  th2  ' 

,  ' ps2  ' 

r 

X 

'  ra2s2x ' 

, ' ra2s2y ' 

,  ' ra2s2z  ' 

, ' p2p ' 

, ' q2p ' 

r 

X 

'  fcllx' 

, ' felly' 

,  ' f cllz  ' 

, ' f clnx ' 

, ' f clny ' 

r 

X 

'  f  clnz  ' 

, ' LC1 ' 

,  'MCI ' 

,  'NCI ' 

, ' fallx ' 

r 

X 

'  fally ' 

,  '  fallz ' 

, ' f alnx ' 

, ' f alny ' 

, ' falnz ' 

r 

X 

'LAI  ' 

, 'MAI ' 

,  '  NA1 ' 

, ' f a22x ' 

, ' f a22y ' 

r 

X 

'  f a22z  ' 

, ' f a2nx ' 

, ' f a2ny ' 

, ' fa2nz ' 

,  ' LA2 ' 

r 

X 

'  MA2  ' 

, ' NA2 ' 

, ' f a2wx ' 

, ' f a2wy ' 

, ' fa2wz ' 

r 

X 

' LA2W ' 

, ' MA2W ' 

, ' NA2W ' 

, ' v2snx ' 

, ' v2sny ' 

r 

X 

' v2snz ' 

, ' va2s2x ' 

, ' va2s2y ' 

,  ' va2s2z  ' 

, ' ra2slx ' 

r 

X 

'  ra2sly ' 

,  '  ra2slz ' 

, ' rls2snx ' 

, ' rls2sny ' 

,  ' rls2snz  ' 

r 

X 

'da' 

,  'db' 

,  '  dc ' 

,  'dp' 

,  'RSAS  ' 

r 

X 

'PSAS ' 

, ' YSAS ' 

, ' DMIXA ' 

, ' DMIXB ' 

, 'DMIXC' 

r 

X 

' DMIXP ' 

, ' PSFWD ' 

, 'PSAFT' 

, ' PSLAT ' 

,  '  PSTR ' 

r 

X 

' quad ' 

, ' alf 2d ' 

, 'bet2d' 

,  ' dalf 2d ' 

, ' dbet2d ' 

r 

X 

' dang2d ' 

,  '  P21 ' 

,  ' q2 1 ' 

, ' r21 ' 

,  '  p2n ' 

r 

X 

'  q2n ' 

, ' r2n ' 

r 

X 

' delxaad ' 

, ' delxbad ' 

, ' delxpad ' 

,  ' delxcad ' 

, ' xaad_sav ' 

i 

r 

X 

' xbad_sav 1 

'  ,  ' xpad_sav ' 

, ' xcad_sav ' 

, ' AMGS2X ' 

, ' AMGS2Y ' 

r 

X 

' AMGS2Z ' 

, ' dvlslx ' 

, ' dvlsly ' 

, ' dvlslz ' 

r 

X 

'  f  XV  ' 

, ' fyv ' 

, ' f zv ' 

r 

X 

'  f  xh ' 

, 'fyh' 

, ' f zh ' 

,  ' speed ' / 

SLMC:  SHORT  LIST 
DATA  SN4/ 

X  'Tl'  , 'pi'  , 'ql'  , 'rl'  , 'da' 

X  ' db '  , ' dc '  , ' dp '  , 'p2p'  , ' q2p ' 

X  ' RSAS '  , 'PSAS'  ,'YSAS'  ,'DMIXA'  ,'DMIXB' 

X  ' DMIXC '  ,'DMIXP' 

X  'delxaad'  , 'delxbad'  , 'delxpad'  , 'delxcad'/ 

C 

WAKE:  LONG  LIST 
DATA  SNW/ 


X 

»  -J1  » 

,  'alf' 

, 'blf ' 

,  '  vlx ' 

,  '  vly ' 

r 

X 

'  viz  ' 

,  '  vo ' 

, ' volx ' 

,  '  voly ' 

,  '  volz  ' 

r 

X 

' vpplx ' 

,  ' vpply ' 

, ' vpplz ' 

, ' vppnx ' 

, ' vppny ' 

r 

X 

' vppnz ' 

,  ' vpp ' 

,  ' vp 1 X ' 

,  ' vp 1 y ' 

,  ' vp 1 z  ' 

r 

X 

' vpnx ' 

,  '  vpny ' 

, ' vpnz ' 

,  'vp' 

, ' phiw ' 

r 

X 

' thew ' 

,  '  xcw ' 

, ' yew ' 

, ' rh2swx ' 

, ' rh2swy ' 

r 

X 

' rh2swz ' 

,  ' rh2swox ' 

, ' rh2swoy ' 

, ' rh2swoz ' 

, ' thetap ' 

r 

X 

'  radius ' 

,  '  rad ' 

, ' height ' 

,  '  vwz  ' 

, ' vwt ' 

r 

X 

'  pst ' 

,  '  vwwx ' 

, ' vwwy ' 

,  '  vwwz  ' 

, ' vw2x ' 

r 

X 

' vw2y ' 

,  ' vw2  z  ' 

, ' va2s2wx ' 

, ' va2s2wy ' 

, ' va2s2wz ' 

r 

X 

' va2s2x ' 

,  ' va2s2y ' 

,  ' va2s2z  ' 

/ 

WAKE:  SHORT  LIST 
DATA  SNX/ 


X 

!  -J1  ! 

I 

'  alf ' 

, 'blf' 

,  'vo' 

, 'vpp' 

X 

'  vp  ' 

t 

'  phiw ' 

,  '  thew ' 

, ’ xcw ’ 

, 'yew' 

X 

'  rh2swox ' 

r 

'  rh2swoy ' 

, ' rh2swoz ' 

,  ’ thetap ’ 

, ' radius '  , 

X 

' height ' 

t 

'  vwz  ' 

,  'pst ' 

,  ’ va2s2wx ’ 

, ' va2s2wy '  , 

X 

' va2s2wz ' 

/ 

10  TYPE  *,  'Enter  name  of  input  file  name.dat' 
READ (5, 11, ERR=10)  NAME 


143 


NLAST  =  LASTCHR (NAME) 

FIN  =  NAME (1 :nlast) //" . dat " 
FOUT  =  NAME (1 :nlast) //" .out" 
FXP  =  NAME (1 :nlast) //" .xp" 
WRITE ( 6 , 11)  FIN 
11  FORMAT (A) 


OPEN (1, FILE=FIN, FORM= ' unformatted '  ,  STATUS='old' ) 

READ ( 1 )  NS,  DT,  I LOAD,  I WAKE,  ISWIRL,  IPILOT,  IDATA,  NGAJFPS, 

X  TOW,  FWT,  Wl,  I1XX,  I1YY,  I1ZZ,  I1XZ,  AXIS,  R1SN, 

X  PH1DEG,  TH1DEG,  PS1DEG,  V1SN,  PSVA,  FA11,  MA11,  C 
READ ( 1 )  CHFILE 

OPEN (2, FILE=FOUT, FORM= 1  formatted ' , STATUS= ' unknown ' ) 

WRITE (2, 151)  FOUT 

IF  ( I LOAD . EQ . 0 )  L  =  openW (UNIT, FXP , NCHAN1 , SN1 ,' unc3 ' ) 

IF  ( I LOAD . EQ . 1 )  L  =  openW (UNIT, FXP , NCHAN2 , SN2 ,' unc3 ' ) 

IF  ( ( I LOAD . EQ . 2 ) . AND . ( IDATA . EQ . 1 ) ) 

X  L  =  openW (UNIT, FXP, NCHAN3  +  1, SN3,  'unc3 ' ) 

IF  ( ( I LOAD . EQ . 2 ) . AND . ( IDATA . EQ . 0 ) ) 

X  L  =  openW (UNIT, FXP, NCHAN4, SN4, 'unc3 ' ) 

IF  ( . NOT . L)  STOP ' openW ' 

IF  ( I LOAD . EQ . 1 )  THEN 

READ ( 1 )  LOADNAME,  W2,  I2XX,  I2YY, 

X  DOQ,  STRETCH,  LCO,  LC,  KS,  CS, 

X  R1SN,  PH2 ,  TH2 ,  PS2 ,  PHC,  THC, 

CABLES  =  '  ' 

WRITE (2, 101) 

END  IF 

IF  ( I LOAD . EQ . 2 )  THEN 

READ ( 1 )  LOADNAME,  W2,  I2XX,  I2YY,  I2ZZ,  I2XZ,  STRETCH, 

X  IAERSL,  NC,  R2SJ2,  RA2P02,  R2P2S02,  R2P2S2,  KS,  CS, 

X  R1SA1 ,  R2PJ2,  DOQ,  GAMA,  PSVA,  ALF2D,  BET2D,  DETG,  LCJO, 

X  LC J,  TAUJ,  FAIN,  FC11,  FC1N,  MC11,  FA22,  FA2N,  MA22,  V1SN, 

X  PH2DEG,  TH2DEG,  PS2DEG,  RA2S2 ,  VA2SN,  R1S2SN,  DYNAMIC, 

X  OM22 , DV2SN, KSWRL, KDYN, KR2 , KPS2 

CABLES  =  'S' 

WRITE (2, 102) 

END  IF 

READ ( 1 )  NREC 
RUNTIME  =  NREC  *  DT 

IF  (CHFILE. EQ. ' sweep.dat ' )  THEN 
IF  (AXIS . EQ . 1 )  THEN 
WRITE (2, 103) 

ELSE  IF  (AXIS . EQ . 2 )  THEN 
WRITE (2, 104) 

ELSE  IF  (AXIS . EQ . 3 )  THEN 
WRITE (2, 105) 

ELSE 

WRITE (2,106) 


I2ZZ,  I2XZ ,  R1SA1 ,  R2S12 , 
QO,  V1S1,  FAIN,  FA2N, 

LC,  (U( j) , j=l, 12) 
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END  IF 
ELSE 

WRITE (2, 107)  CHFILE 
END  IF 

IF  ( I LOAD . EQ . 0 )  WRITE (2, 100) 

WRITE (2, 152)  NREC,  DT,  I1XX,  I1YY,  I1ZZ,  I1XZ 
WRITE (2, 114)  TOW,  FWT,  W1 

IF  ( I LOAD . EQ . 0 )  THEN 

WRITE (2, 153)  R1SN,  PH1DEG,  TH1DEG,  PS1DEG,  V1SN,  PSVA, 

X  FA11,  MAI 1 ,  C 

ELSE 

WRITE (2, 115)  W1+W2 

WRITE (2, 112)  LOADNAME,  W2,  I2XX,  I2YY,  I2ZZ,  I2XZ 
IF  ( I LOAD . EQ . 2 )  WRITE (2, 113)  RA2P02,  R2P2S02,  R2P2S2, 

X  (R2PJ2 (1,  J) , R2P J2 (2, J) ,R2PJ2 (3, J) , J=1,NC) ,R1S2SN 

IF  (STRETCH. EQ. 0)  WRITE (2, 116)  CABLES 
IF  (STRETCH. EQ. 1)  WRITE (2, 117)  CABLES 

IF  ( (IAERSL.EQ. 0) .OR. ( (IAERSL.EQ. 1) .AND . (DOQ.EQ. 0 . ) ) )  THEN 
WRITE (2, 118) 

ELSE 

IF  (IAERSL.EQ. 1)  WRITE (2, 119) 

IF  (IAERSL.EQ. 2)  WRITE (2, 120)  DYNAMIC 
IF  (IAERSL.EQ. 3)  WRITE ( 2 , 12 0 1 ) 

IF  (IAERSL.EQ. 4)  WRITE ( 2 , 1 2 02 ) 

IF  (IWAKE.EQ.0)  WRITE (2, 121) 

IF  (IWAKE.EQ.l)  THEN 

IF  (ISWIRL.EQ. 0)  WRITE (2, 122) 

IF  (ISWIRL.EQ. 1)  WRITE (2, 123) 

END  IF 
END  IF 

END  IF 

IF  (NGAJFPS . EQ . 0 )  WRITE (2, 124) 

IF  (NGAJFPS. EQ. 1)  WRITE (2, 125) 

IF  (IPILOT.EQ. 0)  WRITE (2, 126) 

IF  (IPILOT.EQ. 1)  WRITE ( 2 , 127) 

IF  ( I LOAD . EQ . 1 )  THEN 

WRITE (2,201)  R1SA1 ,  R2S12,  LCO 
IF  (STRETCH. EQ. 1)  WRITE (2, 202)  KS,  CS 

WRITE (2, 203)  R1SN,  PH1DEG,  TH1DEG,  PS1DEG,  PH2 ,  TH2 ,  PS2 , 

X  PHC,  THC,  LC,  V1S1,  FAIN,  FA2N,  MA11,  (Q ( j ) , U ( j ) , j=l , 12 ) 

END  IF 

IF  ( I LOAD . EQ . 2 )  THEN 
WRITE (2, 301)  R1SA1 

IF  (STRETCH. NE. 0)  WRITE(2,302)  KS,  CS,  NC,  DETG, 

X  ( TAU J ( j ) , LC J ( j ) , LC JO ( j ) , j=l,NC) 

WRITE (2, 303)  KSWRL, KDYN, KR2 , KPS2 

THT  =  ATAN (SQRT (FA2N (1) **2+FA2N (2) **2) / (W2+FA2N (3) ) ) *RTD 
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R1SN ( 3 )  =  -R1SN ( 3 ) 

WRITE (2,305)  R1SN, V1SN, PH1DEG, TH1DEG, PS1DEG, PH2DEG, TH2DEG, 

X  PS2DEG, OM22, DV2SN, RA2S2 , VA2SN, FA1 1 , FAIN, MAI 1,FC11,FC1N, MCI 1, 

X  FA22, FA2N,MA22, ALF2D, BET2D,  THT,  C 

END  IF 

CLOSE  (2) 

C  SECTION  500.  STORE  XPLOT  FILE 

C  read  time  histories.  Convert  angles  to  degrees,  change  signs  of  y, z 
position 

C  coordinates  for  rlsn,  r2sn,  rsn.  Note:  DAT8n,  n  =  1,..,4  arrays  are 
double  precision 

IF  ( I LOAD . EQ . 0 )  THEN 
DO  511  i  =  1 , NREC-1 
READ (1, err=590)  DAT1 
TIME  =  DAT1 (1) 

DO  512  j  =  1,12 
k  =  JRTD1 ( j) 

512  DATl(k)  =  DAT1 (k) *RTD 
DO  513  j  =  1 , NCHAN1 

513  DAT81 ( j)  =  DAT1 ( j) 

511  CALL  fWrite (UNIT,  TIME,  DAT 81 ) 

CALL  closeW (UNIT) 

WRITE (6, 580)  FOUT,  RUNTIME,  FXP 
STOP 

END  IF 

IF  ( I LOAD . EQ . 1 )  THEN 
DO  521  i  =  1, NREC-1 
READ (1, err=590)  DAT 2 
TIME  =  DAT 2 (1) 

DAT 2 (14)  =  DAT2 (14) /W1 
DO  522  j  =  1,31 
k  =  JRTD2 ( j) 

522  DAT 2 (k)  =  DAT2 (k) *RTD 

DO  523  k  =  1,2 

DAT2 (35+k)  =  -  DAT2(35+k) 

DAT2 ( 4 7  +k )  =  -  DAT2(47+k) 

523  DAT2 (56+k)  =  -  DAT2 (56+k) 

DO  524  j  =  1 , NCHAN2 

524  DAT 8 2 ( j)  =  DAT 2 ( j) 

521  CALL  fWrite (UNIT,  TIME,  DAT 8 2 ) 

CALL  closeW (UNIT) 

WRITE (6, 580)  FOUT,  RUNTIME,  FXP 

END  IF 

IF  ( (ILOAD.EQ.2) .AND. (IDATA.EQ. 1) )  THEN 
DO  531  i  =  1, NREC-1 
READ (1, err=590)  DAT 3 
TIME  =  DAT 3 (1) 

DO  532  j  =  1,32 
k  =  JRTD3 ( j) 

532  DAT 3 (k)  =  DAT3 (k) *RTD 

DAT 3  (34)  =  -  DAT 3 (34) 

C  correct  the  load  yaw  angle  to  within  +/-  180  deg  for  viewing  in 
xplot 

C534  IF  (DAT3 (40) . GT .  180.)  DAT3(40)  =  DAT3(40)  - 
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C  IF  (DAT3 (40) .LT.-180. )  DAT3(40)  =  DAT3(40)  +  360 

C  IF  (DAT3 (40) . GT .  180.)  GO  TO  534 

C  IF  (DAT3 (40) .LT.-180. )  GO  TO  534 

DO  533  j  =  1 , NCHAN3 
533  DAT 8 3 ( j)  =  DAT 3 ( j) 

DAT 8 3 (NCHAN3+1)  = 

x  SQRT (DAT 3 (14) **2+DAT3 (15) **2+DAT3 (16) **2) /KTSTFPS 

531  CALL  fWrite (UNIT,  TIME,  DAT 8 3 ) 

CALL  closeW (UNIT) 

WRITE (6, 580)  FOUT,  RUNTIME,  FXP 
END  IF 

IF  ( (ILOAD.EQ.2) .AND. (IDATA.EQ.0) )  THEN 
DO  561  i  =  1 , NREC-1 
READ (1, err=590)  DAT 4 
TIME  =  DAT 4 (1) 

DO  562  j  =  1,5 
k  =  JRTD4 ( j) 

562  DAT 4 (k)  =  DAT4 (k) *RTD 
DO  563  j  =  1 , NCHAN4 

563  DAT 8 4 ( j)  =  DAT 4 ( j) 

561  CALL  fWrite (UNIT,  TIME,  DAT 8 4 ) 

CALL  closeW (UNIT) 

WRITE (6, 580)  FOUT,  RUNTIME,  FXP 
END  IF 

599  CONTINUE 

IF  (IWAKE.EQ.l)  THEN 

FIN  =  NAME ( 1 : nlast ) // " . da2 " 

FXP  =  NAME ( 1 : nlast )//". wake . xp" 

WRITE ( 6 , 11)  FIN 

OPEN (4, FILE=FIN,FORM= 'unformatted' , STATUS='old' ) 

C  IDATA  option  removed  for  dynamic  aero  troubleshooting 

L  =  openW (UNIT, FXP, NCHANX, SNX, 'unc3 ' ) 

IF  ( . NOT . L)  STOP ' openW ' 

READ (4)  junk 
DO  600  i  =  1, NREC-1 

READ (4, err=592)  DATX 
TIME  =  DATX ( 1 ) 

DO  651  j  =  1, NCHANX 
651  DAT8X ( j )  =  DATX(j) 

CALL  fWrite (UNIT,  TIME,  DAT8X) 

600  CONTINUE 

CALL  closeW (UNIT) 

WRITE (6, 680)  FXP 
END  IF 
STOP 

151  FORMAT ('DATA  OUTPUT  FILE  ’,16A//) 

100  FORMAT ('NO  LOAD  SIMULATION') 

101  FORMAT (' SINGLE  LOAD,  SINGLE  CABLE  SIMULATION') 

102  FORMAT (' SINGLE  LOAD,  MULTI-CABLE  SIMULATION') 

103  FORMAT (' COMPUTER  GENERATED  LATERAL  INPUT  SWEEP'/) 

104  FORMAT (' COMPUTER  GENERATED  LONGITUDINAL  INPUT  SWEEP'/) 

105  FORMAT (' COMPUTER  GENERATED  DIRECTIONAL  INPUT  SWEEP'/) 

106  FORMAT (' COMPUTER  GENERATED  COLLECTIVE  INPUT  SWEEP'/) 
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107  FORMAT (' CONTROL  INPUT  FROM  '40A//) 

112  FORMAT ( 5X ' LOAD  DESCRIPTION  :  'A/ 

X  5X ' LOAD  WEIGHT  :  'F8.2,'  LB'/ 

X  5X ' LOAD  INERTIA  XX  :  'F8.2, 

X  3X ' LOAD  INERTIA  YY  :  'F8.2,'  LB-FT-S**2'/ 

X  5X ' LOAD  INERTIA  ZZ  :  'F8.2, 

X  3X ' LOAD  INERTIA  XZ  :  'F8.2,'  LB-FT-S**2') 

113  FORMAT (5X'RA2P02  :  '3F8.2/ 

X  5X ' R2P2S02  :  '3F8.2/ 

X  5X ' R2P2S2  :  '3F8.2/ 

X  5X ' R2P J2  :  ' 8 (3F8 . 2/17X) / 

X  5X ' R1S2SN  :  '3F8.2) 

114  FORMAT (5X' HELICOPTER  TAKEOFF  WEIGHT  :  'F10.2,'  LB'/ 

X  5X '  FUEL  WEIGHT  :  'F10.2,'  LB'/ 

X  5X '  CURRENT  WEIGHT  :  'F10.2,'  LB'/) 

115  FORMAT (5X' TOTAL  HELICOPTER  AND  LOAD  :  'F10.2,'  LB'/) 

116  FORMAT (5X' INELASTIC  CABLE', A) 

117  FORMAT (5X' ELASTIC  CABLE', A) 

118  FORMAT (5X' NO  LOAD  AERODYNAMICS') 

119  FORMAT ( 5X ' DRAG  ONLY  AERODYNAMICS') 

120  FORMAT (5X'CONEX  (techdat3)  STATIC  AERODYNAMICS ' / 

X  5X '  DYNAMIC  AERODYNAMIC  COEFFICIENT  =  ’,F4.1/) 

1201  FORMAT (5X'CONEX4  (techdat4)  STATIC  AERODYNAMICS  (|beta|  <  90)'/) 

1202  FORMAT (5X'CONEX4A (techdat 4)  STATIC  AERODYNAMICS  (|alfa|  <  90)'/) 

121  FORMAT ( 5X ' WAKE  MODEL  NOT  SELECTED') 

122  FORMAT ( 5X ' WAKE  MODEL  WITHOUT  SWIRL  SELECTED') 

123  FORMAT (5X' 3-D  WAKE  MODEL  SELECTED') 

124  FORMAT (5X' FLIGHT  PATH  STABILIZATION  (FPS)  DISENGAGED') 

125  FORMAT (5X' FLIGHT  PATH  STABILIZATION  (FPS)  ENGAGED') 

126  FORMAT (5X' INPUT  CONTROL  HISTORY  AUTOPILOT  DISENGAGED') 

127  FORMAT (5X' INPUT  CONTROL  HISTORY  AUTOPILOT  ENGAGED') 


152  FORMAT (5X'NREC,  DT  :  'I8,F10.2/ 

X  5X'HC  INERTIA  XX  :  'F8.2, 

X  3X'HC  INERTIA  YY  :  'F8.2,'  LB-FT-S**2 

X  5X'HC  INERTIA  ZZ  :  'F8.2, 

X  3X'HC  INERTIA  XZ  :  'F8.2,'  LB-FT-S**2 

153  FORMAT (' TRIM' / 

X  5X ' R1SN  (x,y,z)  ',  3F10.1/ 

X  5X ' PHI ,  TH1 ,  PS1  (DEG)  ',  3F10.2/ 

X  5X ' V1SN  (x, y, z )  ',  3F10.2/ 

X  5X ' PSVA  ',  1F10.2/ 

X  5X ' FA1 1  (x, y, z )  ',  3F10.1/ 

X  5X ' MAI 1  (l,m,n)  ',  3F10.1/ 

X  5X ' XAAD,  XBAD,  XCAD,  XPAD ' ,  4F10.2/) 

201  FORMAT (5X'R1SA1  '  3fl0.2/ 

X  5X ' R2S12  '  3f 10 . 2/ 

X  5X ' LCO  '  fl0.4/) 

202  FORMAT (5X'KS,  CS  '  2fl0.1/) 

203  FORMAT (' TRIM' / 


X 

5X ' R1SN 

'  3F9 . 1/ 

X 

5X ' PHI , 

TH1 , 

PS1 

(deg) ' , 

3F9 . 2/ 

X 

5X ' PH2 , 

TH2 , 

PS2 

(deg) ' , 

3F9 . 2/ 

X 

5X ' PHC, 

THC, 

LC 

1 

r 

2F9.2,  F9 . 4/ 

X 

5X ' VREFN 

i 

r 

3F9 . 2/ 

X 

5X ' FAIN 

i 

r 

3F9 . 1/ 

/ 

//) 
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301 

302 

303 
305 


X 

5X 

FA2N 

',  3F9 . 1/ 

X 

5X ' MAI 1 

',  3F9.1// 

X 

' INITIAL 

STATES, 

INCLUDING  INITIAL 

X 

5X 

q  -  ft 

,  deg 

u  -  fp 

X 

5X 

R1SNX 

t 

f 15 . 6, 

7x, 

flO . 6/ 

X 

5X 

R1SNY 

t 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X 

R1SNZ 

t 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X 

PHI 

r 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X 

TH1 

t 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X 

PS1 

t 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X 

PH2 

r 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X 

TH2 

r 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X 

PS2 

r 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X ' PHC 

t 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X ' THC 

t 

f 15 . 6, 

lx, 

flO . 6/ 

X 

5X 

LC 

r 

f 15 . 6, 

lx, 

fl0.6//  ) 

FORMAT ( 5X 

R1SA1 

' 3f 8 . 2) 

FORMAT ( 5X 

KS,  CS, 

NC,  DETG 

'  2F8 . 1 , 14 , F 

X 

5X 

TAUJ, 

LC J,  LC JO 

'  8 (F8 . 1 , 3X, 

FORMAT ( 5X 

KSWRL 

,  KDYN, KR2 

,  KPS2 

'  4F8.2) 

FORMAT ( ' TRIM' / 

X 

5X 

R1SN 

' 

,  3F9.1/ 

X 

5X 

V1SN 

',  3F9 . 2/ 

X 

5X 

PHI, 

TH1 ,  PS1 

(deg) 

',  3F9 . 2/ 

X 

5X 

PH2 , 

TH2 ,  PS2 

(deg) 

',  3F9 . 2/ 

X 

5X 

OM22 

(rps) 

',  3f 9 . 3/ 

X 

5X 

DV2SN 

( fps2 ) 

',  3f 9 . 3/ 

X 

5X 

RA2S2 

',  3F9 . 2/ 

X 

5X 

VA2SN 

',  3F9 . 2/ 

X 

5X 

FA1 1 , 

FAIN 

,  6F9.1/ 

X 

5X ' MAI 1 

,  3F9.1/ 

X 

5X 

FC11 , 

FC1N 

,  6F9.1/ 

X 

5X ' MCI 1 

,  3F9.1/ 

X 

5X 

FA22 , 

FA2N 

,  6F9.1/ 

X 

5X 

MA22 

,  3F9 . 1/ 

X 

5X ' ALF2D 

I 

BET2D  (deg) 

',  2F9 . 2/ 

X 

5X 

TRAIL 

ANGLE  (deg)  ' 

,  FlO. 2/ 

X 

5X 

da,  db. 

dc,  dp 

4F9.3) 

OFFSETS  FROM  TRIM'/ 
s , rps  '  / 


580  FORMAT  (/ 

X'  RUN  INFORMATION  AND  TRIM  DATA  WRITTEN  TO  ' , A/ 

X'  ' , 1F7 . 2 , '  SEC  SIMULATION  RECORD  WRITTEN  TO  ' , A/ ) 


590 

TYPE  *, 'error  in  reading 
WRITE (6, 591 )  I 

data  array' 

591 

FORMAT ( ' stopped  at  record 
CALL  closeW(unit) 

GO  TO  599 

number ' , 18 ) 

592 

TYPE  *, 'error  in  reading 
WRITE (6, 593)  I 

data  array' 

593 

FORMAT ( ' stopped  at  record 
CALL  closeW(unit) 

number '  ,  18  ) 

680 

FORMAT ( / 

X'  WAKE  INFORMATION  WRITTEN  TO  ' , A/ ) 
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APPENDIX  O  SLVARS.CMN 


Common  block  variables  for  GenHel  /  Slung  Load  simulation.  Stabilization 
parameters  were  added.  Program  by  Tyson,  P.  modified  by  Ehlers,  G. 


C  file  genhel/batch/sl/slvars .  cmn  - 31  AUG  98 

Peter  Tyson 

C  Load  stabil  parameters  added  17  Jul  01  by  George  Ehlers 


C  Common  blocks  for  the  GenHel/Slung  Load  Simulation.  variables 
required  for  data  output  from  the  No-Load, 

C  SLSC,  and  SLMC  cases.  The  common  blocks  occurring  herein  are: 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


/ LFLOAT / RLOAD (500) 
/LFIXED/LLOAD (15) 
/XFLOAT/A (500) 
/IFLOAT/IA (500) 
/FCSCOM/FCS (100) 
/ROCOM/RC (440) 

/ IRCOM/ IRC (20) 
/RCOM/RO (70) 

/ C  SLLNCMN / LOADNAME 
/ CSLCFCMN/ CHFILE 
/ CSLDFCMN/DATAFILE 


load/sling  parameters  and  variables 
discretes  for  slung  load  codes 
Strike  variables 
Stike  descretes 
FCS 

Wake  varbs/params 
pilot  inputs 


REAL 

X  PH2DEG,  TH2DEG,  PS2DEG,  ALF2D,  BET2D,  OM2N(3),  V2SN(3), 

X  VA2SN ( 3 ) ,  VA2S2 ( 3 ) ,  FA11(3),  FAIN (3),  MA11(3),  FC11(3), 

X  FC1N ( 3 ) ,  MCI 1 ( 3 ) ,  FA22 ( 3 ) ,  FA2N(3),  MA22(3),  FC22(3), 

X  FC2N ( 3 ) ,  MC22 ( 3 ) ,  FA2W(3),  MA2W(3),  W2,  I2XX,  I2YY,  I2ZZ, 

X  I2XZ,  KS,  CS,  DOQ,  LCJ(8),  LCJO(8),  TAUJ(8),  R2SJ2(3,8), 

X  RA2P2 ( 3 ) ,  R2P2S2 ( 3 ) ,  RA2P02(3),  R2P2S02(3),  R2PJ2(3,8), 

X  TAU,  RSN ( 3 ) ,  DELRSN (3 ) ,  R2SN(3),  VSN(3),  DELVSN(3), 

X  DV2SN ( 3 ) ,  DELDVSN ( 3 ) ,  SSFN(3),  ISSFN(3),  IISSFN(3), 

X  OMCC ( 3 ) ,  LCO,  LCMLCO,  PHCH,  THCH,  RPHC,  RTHC,  R2S12(3), 

X  RA2  SI ( 3 ) ,  TOW,  FWT,  GAM,  PSVA, 

X  DETG,  R1SA1 ( 3 ) ,  DELPS20,  ALFO,  PSWO,  FREQ, 

X  QO ( 12 ) ,  DU ( 12 ) ,  U ( 12 ) ,  DQ(12),  Q(12),  DV1SN(3),  DOMll(3), 

X  DOM22 ( 3 ) ,  DDRA2S2 ( 3 ) ,  OMll(3),  OM22(3),  DRA2S2(3),  DPH1, 

X  DTH1 ,  DPS1 ,  DPH2 ,  DTH2 ,  DPS2 ,  R1SN(3),  PHI,  TH1 ,  PH2 ,  TH2 , 

X  PS2 ,  RA2S2 ( 3 ) ,  PH1DEG,  TH1DEG,  PS1DEG,  WN(3),  G,  I1XX, 

X  I1YY,  I1ZZ,  I1XZ,  DT,  Wl,  RHO,  T,  R2D,  XMUXH,  XMUYH,  XMUZH, 

X  XMUXS ,  XMUYS ,  XMUZS,  XLAMDA,  CTA,  OMEGA,  A1F,  B1F,  FSCG, 

X  WLCG,  BLCG,  RMR,  T2N(3,3),  TN2(3,3),  DALF2D,  DBET2D,  DANG2D, 
X  ALFAO,  BETAO,  R1S2SN(3),  P2N,  Q2N,  R2N,  P21,  Q21,  R21, 

X  CAD_SAVE (4) ,R2SS2 (3) ,AMGS2 (3) ,DV1S1 (3)  , 

X  R20D, KSWRL, KR2 , KPS2 , KDYN, PWL_TIME (20) , PWLCNTRL (20) , 

X  TEMP,  GAINH,  CH,  SH,  CLAH,  CLDH,  CDOH,  CDPH,  STALH1 , 

X  STALH2 ,  RH ( 3 ) ,  GAINV,  CV,  SV,  CLAV,  CLDV,  CDOV,  CDPV, 

X  STALV1 ,  STALV2 ,  RV(3),  Flf,  F2f,  F3f,  mlf,  m2f,  m3f 
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INTEGER  STRETCH,  NSTORE,  NREC,  NC,  QUAD,  AXIS, STABSYST, ACTIVE 
COMMON  /LFLOAT/  RLOAD(500) 

C  LOAD  EULER  ROLL, PITCH  AND  YAW  ANGLES  -  DEG 


EQUIVALENCE 

(RLOAD ( 

1)  , 

PH2DEG 

EQUIVALENCE 

(RLOAD ( 

2)  , 

TH2DEG 

EQUIVALENCE 

(RLOAD ( 

3)  , 

PS2DEG 

C  LOAD  ANGLES  OF  ATTACK  AND  SIDESLIP  -  DEG 
EQUIVALENCE  (RLOAD (  4),  ALF2D  ) 

EQUIVALENCE  (RLOAD (  5),  BET2D  ) 

C  LOAD  ROLL,  PITCH  AND  YAW  RATES,  INERTIAL  FRAME  -  RAD/SEC 
EQUIVALENCE  (RLOAD (  6),  OM2N(l)  ) 

C  LOAD  ROLL,  PITCH  AND  YAW  RATES,  LOAD-HC  HEADING  COORDS-  RAD/SEC 
EQUIVALENCE  (RLOAD (  9),  P2P  ) 

EQUIVALENCE  (RLOAD (  10),  Q2P  ) 

C  LOAD  VELOCITIES,  INERTIAL  FRAME  -  FT/SEC 
EQUIVALENCE  (RLOAD (  11),  V2SN(1)  ) 

C  LOAD  APPARENT  WIND  VELOCITIES,  INERTIAL  FRAME  -  FT/SEC 
EQUIVALENCE  (RLOAD (  14),  VA2SN(1)  ) 

C  LOAD  APPARENT  WIND  VELOCITIES,  LOAD  BODY  FRAME  -  FT/SEC 
EQUIVALENCE  (RLOAD (  17),  VA2S2(1)  ) 

C  HELO  AERO  FORCES,  HC  BODY  AXES 

EQUIVALENCE  (RLOAD (  20),  FA11(1)  ) 

C  HELO  AERO  FORCES,  INERTIAL  AXES 

EQUIVALENCE  (RLOAD (  23),  FA1N(1)  ) 

C  HELO  AERO  MOMENTS  ABOUT  HC  CG,  HC  BODY  AXES 
EQUIVALENCE  (RLOAD (  26),  MA11(1)  ) 

C  HOOK  FORCES,  HC  BODY  AXES 

EQUIVALENCE  (RLOAD (  29),  FC11(1)  ) 

C  HOOK  FORCES,  INERTIAL  AXES 

EQUIVALENCE  (RLOAD (  32),  FC1N(1)  ) 

C  HOOK  MOMENTS  ABOUT  HC  CG,  HC  BODY  AXES 
EQUIVALENCE  (RLOAD (  35),  MC11(1)  ) 

C  LOAD  AERO  FORCES,  LOAD  BODY  AXES 

EQUIVALENCE  (RLOAD (  38),  FA22(1)  ) 

C  LOAD  AERO  FORCES,  INERTIAL  AXES 

EQUIVALENCE  (RLOAD (  41),  FA2N(1)  ) 

C  LOAD  AERO  MOMENTS  ABOUT  LOAD  CG,  LOAD  BODY  AXES 
EQUIVALENCE  (RLOAD (  44),  MA22(1)  ) 

C  SLING  FORCES,  LOAD  BODY  AXES 
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EQUIVALENCE  (RLOAD (  47),  FC22(1)  ) 

C  SLING  FORCE,  INERTIAL  AXES 

EQUIVALENCE  (RLOAD (  50),  FC2N(1)  ) 

C  SLING  MOMENTS  ABOUT  LOAD  CG,  LOAD  BODY  AXES 
EQUIVALENCE  (RLOAD (  53),  MC22(1)  ) 

C  LOAD  AERO  FORCES,  LOAD  APPARENT  WIND  AXES 
EQUIVALENCE  (RLOAD (  56),  FA2W(1)  ) 

C  LOAD  AERO  MOMENTS  ABOUT  LOAD  CG,  LOAD  APPARENT  WIND  AXES 
EQUIVALENCE  (RLOAD (  59),  MA2W(1)  ) 

C  LOAD  INITIAL  YAW  RATE 

EQUIVALENCE  (RLOAD (  62),  R20D  ) 

C  LOAD  DYNAMIC  AERODYNAMICS  CONSTANTS 
EQUIVALENCE  (RLOAD (  63),  KSWRL  ) 

EQUIVALENCE  (RLOAD (  64),  KR2  ) 

EQUIVALENCE  (RLOAD (  65),  KPS 2  ) 

EQUIVALENCE  (RLOAD (  66),  KDYN  ) 

C  RLOAD (  67)  -  (  69)  EMPTY 

C  LOAD  WEIGHT  (POUNDS) 

EQUIVALENCE  (RLOAD (  70),  W2  ) 

C  LOAD  XX,  YY,  ZZ,  AND  XZ  MOMENTS  OF  INERTIA  -  SLUG-FT2 
EQUIVALENCE  (RLOAD (  71),  I2XX  ) 

EQUIVALENCE  (RLOAD (  72),  I2YY  ) 

EQUIVALENCE  (RLOAD (  73),  I2ZZ  ) 

EQUIVALENCE  (RLOAD (  74),  I2XZ  ) 

C  SLING  SPRING  CONSTANT 

EQUIVALENCE  (RLOAD (  75),  KS  ) 

C  SLING  DAMPING  CONSTANT 

EQUIVALENCE  (RLOAD (  76),  CS  ) 

C  LOAD  DRAG  OVER  DYNAMIC  PRESSURE 

EQUIVALENCE  (RLOAD (  77),  DOQ  ) 

C  SLING  CABLE  LENGTH  ( 1  TO  8  LEGS) 

EQUIVALENCE  (RLOAD (  78),  LCJ(l)  ) 

C  SLING  IC  LENGTH  (1  TO  8  LEGS) 

EQUIVALENCE  (RLOAD (  86),  LCJO(l)  ) 

C  SLING  CABLE  TENSIONS 

EQUIVALENCE  (RLOAD (  94),  TAUJ(l)  ) 

EQUIVALENCE  (RLOAD (103),  R2SJ2(1,1)  ) 

EQUIVALENCE  (RLOAD (127),  RA2P2(1)  ) 

EQUIVALENCE  (RLOAD (130),  R2P2S2(1)  ) 

EQUIVALENCE  (RLOAD (133),  RA2P02(1)  ) 

EQUIVALENCE  (RLOAD (136),  R2P2S02(1)  ) 
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EQUIVALENCE  (RLOAD(139),  R2PJ2(1,1)  ) 


C  SLSC  VARIABLES 

C  SLING  TENSION 

EQUIVALENCE  (RLOAD(164),  TAU  ) 

C  SYSTEM  MOTION  WRT  INERTIAL  FRAME,  FT 
EQUIVALENCE  (RLOAD(165),  RSN(l)  ) 

C  CHANGE  IN  SYSTEM  MOTION  WRT  INERTIAL  FRAME,  FT 
EQUIVALENCE  (RLOAD(168),  DELRSN ( 1 )  ) 

C  LOAD  MOTION  WRT  INERTIAL  FRAME,  FT 

EQUIVALENCE  (RLOAD(171),  R2SN(1)  ) 

C  SYSTEM  VELOCITY  WRT  INERTIAL  FRAME,  FT/S 
EQUIVALENCE  (RLOAD(174),  VSN(l)  ) 

C  CHANGE  IN  SYSTEM  VELOCITY  WRT  INERTIAL  FRAME,  FT/S 
EQUIVALENCE  (RLOAD(177),  DELVSN(l)  ) 

C  LOAD  ACCELERATION  WRT  INERTIAL  FRAME,  FT/S**2 
EQUIVALENCE  (RLOAD(180),  DV2SN(1)  ) 

C  CHANGE  IN  SYSTEM  ACCELERATION  WRT  INERTIAL  FRAME,  FT/S**2 
EQUIVALENCE  (RLOAD(183),  DELDVSN ( 1 )  ) 

EQUIVALENCE  (RLOAD(186),  SSFN(l)  ) 

EQUIVALENCE  (RLOAD(189),  ISSFN(l)  ) 

EQUIVALENCE  (RLOAD(192),  IISSFN(l)  ) 

EQUIVALENCE  (RLOAD(195),  OMCC(l)  ) 

EQUIVALENCE  (RLOAD(198),  LCO  ) 

EQUIVALENCE  (RLOAD(200),  LCMLCO  ) 

EQUIVALENCE  (RLOAD(201),  PHCH  ) 

EQUIVALENCE  (RLOAD(202),  THCH  ) 

EQUIVALENCE  (RLOAD(203),  RPHC  ) 

EQUIVALENCE  (RLOAD(204),  RTHC  ) 

C  LOCATION  VECTOR,  FROM  HC  CG  TO  LOAD  CG,  INERTIAL  AXES 
EQUIVALENCE  (RLOAD(205),  R1S2SN(1)  ) 

C  LOCATION  VECTOR 

EQUIVALENCE  (RLOAD(240),  R2S12(1)  ) 

C  LOCATION  VECTOR,  LOAD  C.G.  FROM  HC  HOOK,  HC  BODY  AXES 
EQUIVALENCE  (RLOAD(243),  RA2S1(1)  ) 

C  HELICOPTER  TAKEOFF  WEIGHT 

EQUIVALENCE  (RLOAD(246),  TOW  ) 

C  HELICOPTER  TAKEOFF  FUEL  WEIGHT 

EQUIVALENCE  (RLOAD(247),  FWT  ) 

EQUIVALENCE  (RLOAD(248),  GAM  ) 

EQUIVALENCE  (RLOAD(249),  PSVA  ) 

EQUIVALENCE  (RLOAD(250),  DETG  ) 
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EQUIVALENCE  (RLOAD(251),  R1SA1(1)  ) 

EQUIVALENCE  (RLOAD(254),  DELPS20  ) 

EQUIVALENCE  (RLOAD(255),  ALFO  ) 

EQUIVALENCE  (RLOAD(256),  PSWO  ) 

EQUIVALENCE  (RLOAD(257),  FREQ  ) 

C  DYNAMIC  AERODYNAMICS  PROPORTIONALITY  FACTOR 
EQUIVALENCE  (RLOAD(258),  DYNAMIC  ) 

C  ANGLE  OF  ATTACK,  SIDESLIP  AND  TOTAL  ANGULAR  RATE  OF  CHANGE 
EQUIVALENCE  (RLOAD(259),  DALF2D  ) 

EQUIVALENCE  (RLOAD(260),  DBET2D  ) 

EQUIVALENCE  (RLOAD(261),  DANG2D  ) 

C  FORCE  ON  LOAD  DUE  TO  ANGULAR  RATES  OF  CHANGE 
EQUIVALENCE  (RLOAD(262),  FDALF2D  ) 

EQUIVALENCE  (RLOAD(263),  FDBET2D  ) 

EQUIVALENCE  (RLOAD(264),  FDANG2D  ) 

C  QUADRANT  1  ANGLE  OF  ATTACK  AND  SIDESLIP  FOR  LOAD 
EQUIVALENCE  (RLOAD(265),  ALFAO  ) 

EQUIVALENCE  (RLOAD(266),  BETAO  ) 

C  LOAD  MOTION,  INERTIAL  AXES 

EQUIVALENCE  (RLOAD(267),  P2N  ) 

EQUIVALENCE  (RLOAD(268),  Q2N  ) 

EQUIVALENCE  (RLOAD(269),  R2N  ) 

C  LOAD  MOTION,  HC  BODY  AXES 

EQUIVALENCE  (RLOAD(270),  P21  ) 

EQUIVALENCE  (RLOAD(271),  Q21  ) 

EQUIVALENCE  (RLOAD(272),  R21  ) 

C  stabilizing  control  (feedfwd  (cad-save)  and  feedback)  frm  pilot. f 

C  load  cg-to-accelerometer  location  and  load  accelerometer  signals 
EQUIVALENCE  (RLOAD(273),  DELXAAD ) 

EQUIVALENCE  (RLOAD(274),  DELXBAD ) 

EQUIVALENCE  (RLOAD(275),  DELXPAD ) 

EQUIVALENCE  (RLOAD(276),  DELXCAD ) 

EQUIVALENCE  (RLOAD(277),  CAD_SAVE(1)) 

EQUIVALENCE  (RLOAD(281),  R2SS2(1)) 

EQUIVALENCE  (RLOAD(284),  AMGS2(1)) 

C  rload (287-288 )  empty 

EQUIVALENCE  (RLOAD (289),  QO(l)  ) 

C  state  array  equivalences  for  integration 

C  du  =  (dvlsn(3),  domll(3),  dom22(3),  ddra2s2(3)} 

C  u  —  {  vlsn(3),  omll(3),  om22(3),  dra2s2(3)} 

C  q  =  {  rlsn(3),  phl,thl,psl,  ph2,th2,ps2,  ra2s2(3)} 

EQUIVALENCE  (RLOAD (301),  DU (12)  ) 

EQUIVALENCE  (RLOAD (321),  U(12)  ) 

EQUIVALENCE  (RLOAD (341),  DQ(12)  ) 

EQUIVALENCE  (RLOAD (361),  Q(12)  ) 

EQUIVALENCE  (RLOAD (362),  DV1S1(1)  ) 
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C  piece-wise  linear  control  input  arrays:  370-399 
EQUIVALENCE  (RLOAD(370),  PWL_TIME(1)) 
EQUIVALENCE  (RLQAD(390),  PWLCNTRL(l)) 


C  Load  Stabilization  Parameters 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(RLOAD (460) ,  F1V) 
(RLOAD (461) ,  F2V) 
(RLOAD (462),  F3V) 
(RLOAD (463),  F1H) 
(RLOAD (464),  F2H) 
(RLOAD (465),  F3H) 


EQUIVALENCE  (RLOAD (470),  ACTIVE) 
EQUIVALENCE  (RLOAD (471),  TEMP) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(RLOAD (475),  GAINH) 
(RLOAD (476),  CH) 
(RLOAD (477),  SH) 
(RLOAD (478),  CLAH) 
(RLOAD (479),  CLDH) 
(RLOAD (480),  CDOH) 
(RLOAD (481),  CDPH) 
(RLOAD (482),  STALH1 ) 
(RLOAD (483) ,  STALH2 ) 
(RLOAD (484),  RH(1)) 
(RLOAD (485),  RH(2)) 
(RLOAD (486),  RH(3)) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(RLOAD (487),  GAINV) 
(RLOAD (488),  CV) 
(RLOAD (489),  SV) 
(RLOAD (490),  CLAV) 
(RLOAD (491),  CLDV) 
(RLOAD (492),  CDOV) 
(RLOAD (493),  CDPV) 
(RLOAD (494),  STALV1 ) 
(RLOAD (495),  STALV2 ) 
(RLOAD (496),  RV(1)) 
(RLOAD (497),  RV(2)) 
(RLOAD (498),  RV(3)) 


C  HC  ACCELERATIONS,  INERTIAL  AXES  -  FT/S2 
EQUIVALENCE  (DU (  1),  DV1SN(1)  ) 


C  HC  BODY  ROLL,  PITCH  AND  YAW  ACCELERATIONS  -  RAD/SEC2 
EQUIVALENCE  (DU (  4),  DOMll(l)  ) 

C  LOAD  BODY  ROLL,  PITCH  AND  YAW  ACCELERATIONS  -  RAD/SEC2 
EQUIVALENCE  (DU (  7),  DOM22(l)  ) 


C  STRETCH  COORDS,  HOOK  TO  LOAD  CG  LINE  SEGMENT  COORDS 
EQUIVALENCE  (DU (10),  DDRA2S2(1)  ) 


C  HC  BODY  ROLL,  PITCH  AND  YAW  RATES  -  RAD/SEC 
EQUIVALENCE  (U (  4),  OMll(l)  ) 
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C  LOAD  BODY  ROLL,  PITCH  AND  YAW  RATES  -  RAD/SEC 
EQUIVALENCE  (U (  7),  OM22(l)  ) 

C  FIRST  DERIVATIVE,  HOOK  TO  LOAD  CG  LINE  SEGMENT 
EQUIVALENCE  (U(10),  DRA2S2(1)  ) 


C  HC  EULER  ROLL,  PITCH  AND 
EQUIVALENCE  (DQ (  4), 
EQUIVALENCE  (DQ (  5), 
EQUIVALENCE  (DQ  (  6), 


YAW  RATES  -  RAD/SEC 
DPH1  ) 

DTH1  ) 

DPS1  ) 


C  LOAD  EULER  ROLL,  PITCH  AND  YAW  RATES  -  RAD/SEC 
EQUIVALENCE  (DQ (  7),  DPH2  ) 

EQUIVALENCE  (DQ (  8),  DTH2  ) 

EQUIVALENCE  (DQ (  9),  DPS2  ) 


C  HC  INERTIAL  POSITION  VECTOR 

EQUIVALENCE  (Q (  1),  R1SN(1)  ) 

C  HC  EULER  ROLL,  PITCH  AND  YAW  ANGLES  -  RAD 
EQUIVALENCE  (Q (  4),  PHI  ) 

EQUIVALENCE  (Q (  5),  TH1  ) 

C  Note:  PS1  included  separately  where  needed 

C  LOAD  EULER  ROLL,  PITCH  AND  YAW  ANGLES  -  RAD 
EQUIVALENCE  (Q (  7),  PH2  ) 

EQUIVALENCE  (Q (  8),  TH2  ) 

EQUIVALENCE  (Q (  9),  PS2  ) 

C  HOOK  TO  LOAD  CG  LINE  SEGMENT,  LOAD  BODY  AXES 
EQUIVALENCE  (Q(10),  RA2S2(1)  ) 

C  STRIKE  Variables 

C  Used  by:  GHSLMC,  GHSLMC_IC,  CONEXAERO,  NRT_UNC3_OUT 
COMMON  /XFLOAT/  A (500) 


EQUIVALENCE 

(A 

(  1)  , 

PH1DEG 

EQUIVALENCE 

(A 

(  2)  , 

TH1DEG 

EQUIVALENCE 

(A 

(  3)  , 

PS1DEG 

EQUIVALENCE 

(A 

(  76), 

WN  (1) 

EQUIVALENCE 

(A 

(  97), 

G  ) 

EQUIVALENCE 

(A 

(116)  , 

I1XX  ) 

EQUIVALENCE 

(A 

(117)  , 

I1YY  ) 

EQUIVALENCE 

(A 

(118)  , 

I1ZZ  ) 

EQUIVALENCE 

(A 

(119)  , 

I1XZ  ) 

EQUIVALENCE 

(A 

(168)  , 

DT  ) 

EQUIVALENCE 

(A 

(183)  , 

RHO  ) 

EQUIVALENCE 

(A 

(209) , 

SOUND 

EQUIVALENCE 

(A 

(303)  , 

T  ) 

EQUIVALENCE 

(A 

(359)  , 

R2D  ) 

C  STRIKE  Switches 
C  Used  by:  GHSLMC,  CONEXAERO 
COMMON  /IFIXED/  IA(250) 
EQUIVALENCE  (IA(1),  IMODE  ) 
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C  Variables  for  data  output 

C  Used  by:  NRT_UNC3_0UT 

COMMON  /FCSCOM/  FCS(IOO) 

EQUIVALENCE (FCS (16) ,  RSAS) 

EQUIVALENCE (FCS (17) ,  PSAS) 

EQUIVALENCE (FCS (18) ,  YSAS) 

EQUIVALENCE (FCS (41) ,  DMIXA) 

EQUIVALENCE (FCS (42) ,  DMIXB) 

EQUIVALENCE (FCS (43) ,  DMIXC) 

EQUIVALENCE (FCS (44) ,  DMIXP) 

EQUIVALENCE (FCS (49) ,  PSFWD) 

EQUIVALENCE (FCS (50) ,  PSAFT) 

EQUIVALENCE (FCS (51) ,  PSLAT) 

EQUIVALENCE (FCS (52) ,  PSTR) 

C  Variables  for  wake  computations  and  locations 

C  Used  by:  CONEXAERO,  NRT_UNC3_OUT 
COMMON  /ROCOM/  RC(440) 

EQUIVALENCE  (RC (  51),  XMUXH  ) 

EQUIVALENCE  (RC (  52),  XMUYH  ) 

EQUIVALENCE  (RC (  53),  XMUZH  ) 

EQUIVALENCE  (RC (  54),  XMUXS  ) 

EQUIVALENCE  (RC (  55),  XMUYS  ) 

EQUIVALENCE  (RC (  56),  XMUZS  ) 

EQUIVALENCE  (RC (  70),  XLAMDA  ) 

EQUIVALENCE  (RC (  71),  CTA  ) 

EQUIVALENCE  (RC (  80),  A1F  ) 

EQUIVALENCE  (RC (  81),  B1F  ) 

EQUIVALENCE  (RC(117),  OMEGA  ) 

EQUIVALENCE  (RC(218),  FSCG  ) 

EQUIVALENCE  (RC(219),  WLCG  ) 

EQUIVALENCE  (RC(220),  BLCG  ) 

EQUIVALENCE  (RC(221),  RMR  ) 

EQUIVALENCE  (RC(223),  Wl  ) 

EQUIVALENCE  (RC(280),  WBLADE  ) 

COMMON  / IRCOM/  IRC (20) 

EQUIVALENCE  (IRC (10),  NBS ) 

C  Control  History  variables 

C  Used  by:  NRT_UNC3_OUT,  PILOT 
COMMON  /RCON/  RO(70) 

EQUIVALENCE  (RO(13),  XA  ) 

EQUIVALENCE  (RO(14),  XAAD  ) 

EQUIVALENCE  (RO(25),  XB  ) 

EQUIVALENCE  (RO(26),  XBAD  ) 

EQUIVALENCE  (RO(37),  XP  ) 

EQUIVALENCE  (RO(38),  XPAD  ) 

EQUIVALENCE  (RO (  1),  XC  ) 

EQUIVALENCE  (RO (  2),  XCAD  ) 


COMMON  /LFIXED/  LLOAD(15) 
EQUIVALENCE  (LLOAD (  1),  STRETCH  ) 
EQUIVALENCE  (LLOAD (  2),  NSTORE  ) 
EQUIVALENCE  (LLOAD (  3),  NC  ) 
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EQUIVALENCE  (LLOAD (  4),  IAERSL  ) 
EQUIVALENCE  (LLOAD (  5),  I LOAD  ) 
EQUIVALENCE  (LLOAD (  6),  IPILOT  ) 
EQUIVALENCE  (LLOAD (  7),  I WAKE  ) 
EQUIVALENCE  (LLOAD (  8),  ISWIRL  ) 
EQUIVALENCE  (LLOAD (  9),  IDATA  ) 
EQUIVALENCE  (LLOAD (10),  QUAD  ) 
EQUIVALENCE  (LLOAD (11),  AXIS  ) 
EQUIVALENCE  (LLOAD (12),  NREC  ) 
EQUIVALENCE  (LLOAD (13),  STABSYST) 
EQUIVALENCE  (LLOAD (15),  ACTIVE) 


C  Load  Description 

C  Used  by:  GHSL_INIT,  NRT_UNC3_OUT,  NRT_UNC3_IN 
CHARACTER* 4 0  LOADNAME,  CHFILE,  DATAFILE 
COMMON  / CSLLNCMN/  LOADNAME 
COMMON  / CSLCFCMN/  CHFILE 
COMMON  / CSLDFCMN/  DATAFILE 
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APPENDIX  P  STABILIZER  RESULTS 


Simulation  results  of  passive  and  active  stabilization  systems  of  various  areas. 
Plotted  are  yaw  rate  (R2)  in  feet  per  second  versus  time  in  seconds.  Appendix  P  by 
Ehlers,  G. 
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20.00 


0.00 

TIME.  120(00:00:00.0200) 


i.xp;  Signal  Suffix=.60;  Date= 
i.xp;  Signal  Suffix=[none];  Date= 
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Thu  Sep  13  16:57:59  2001 


D  20.00  ,  40.00  60.00 

TIME. 70(00:00:00. 0200) 


3  20.00  40.00  60.00 

TIME. 80(00:00:00. 0200) 


20.00  40.00 

TIME.90(00:00:00.0200) 

Signal  Suffix=.60;  Date= 

Signal  Suffix=,70;  Date= 


60.00 


63 


Passive  Stabilizer 
2X4 


0.00 

TIME.100(0C 


Passive 

3X5 


File=15_60_p.xp;  Signal  Suffix=.60;  Da 
File=15_70_p.xp;  Signal  Suffix=.70;  Da 


Thu  Sep  13  16:39:37  2001 
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